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STLOCK = Initial 
STLOCK = Driver Process 
Spd - oriven Process 
Clean Up and Exit 
Create Detached processes and Mailboxes 
Determine Which Dr yon Process Gets Command 
Send Messages to Driven Processes 
Execute Test Commands in the Test Table 
Type the Current Command 
Check Correctness of the ENQW Test 
Check Completion AST 
Check | AST 
Check Lock Valu 
Check SYNCSTS Flag Routine 
Check NOQUEUVE Flag Routine 
Check Deadlock Test 
Check Status Code pores 


NOT 
Now 
44 DDD 
mm se @ 
oo 
Et 
<= 
3 


Oco 
os 


— 


Deadlock Detection and Resolution Routine 
Deadlock Timeout AST Routine 

Termination Mailbox AST Routine 

Timer Expiration Routine 

System Service Exception Handler 

RMS Error Handler 

CTRL/C Handler 

Error Exit 

Exit Handler 
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TETLE YETLOFKOO - Local Lock Manager UETP Test 
ENABLE SUPPRESSION 


SPARTA TEAR AETE AAA TAA AAAAAAAAAAAAAAAAAEAAAAAAAREAETEAeRe KAA eeeeE ee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS ete UNDER A LICENSE AND MAY BE USED AND sonic’ 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF TH ee VE St gith a NOTICE. THIS SOFTWARE OR ANY OTHER 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: VAX/VMS UETP 


ABSTRACT: 
This module serves as both the controlling (driver) and slave (driven) 
images of the UETP Legs Manager Test. Depending on the invocation and 
parameters apes of 0 foeccee to be the driver, in which case it 
starts up cop ¢ of itself and directs their actions; or the driven 
process, in which case ft is started by the driver and is told what 
action to perform next. 


ENVIRONMENT: 
Lb Pramas and GROUP privileges and ENQLM=20 are needed to run this 
test. 
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AUTHOR: Paul Jeng, CREATION DATE: 8-Aug-1981 
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MODIFIED BY: 
V03-006 RNHOO0S Richard N. Holstein, al a+. 
v3-5 left SYIS$ SCSNODE at 4 instead of 6. that and force 
satteen logical names to go into a group logical name table. 
v03-005 WHMO0001 Bill Matthews 14-Apr-1984 
Replace reference to SYIS$_SCSNODEL/H with SY $_ _SCSNODE . 
v03-004 yg Richard N. Holstein, 23-Nov-1983 
Use lock names which will allow the test to run on more than 
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i 


one VMS node of a cluster simultaneously = insert ‘UETPS$node_"’. 
4 


V03-003 RNHOO03 Richard N. Holstein, 17-Nov-1983 
Fix bug which prevented deleting log files on successful runs. 
if 
: 
71 
72 


V03-002 RNHOO02 Richard N. Holstein, 11-Mar-1983 
Don't signal ending message in EXIT_HANDLER. 


v03-001 RNHOOO01 Richard N. Holstein, 11-Mar-1983 
Eliminate redundant error one bi when opening SYSSINPUT. 
Don't try for subprocess logs if the subprocesses weren't 
created. ardent copied subprocess logs. Misc fixes carried 
over from device tests. 
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: -SBTTL Declarations 
: INCLUDE FILES: 


BS 


; SYSSLIBRARY:LIB.MLB for general definitions 

; SHRLIBS:UETP.MLB for UETP definitions 

3; MACROS: 
ACCDEF ; account ay | definition 
CHF DEF 3; Condition handler 
SDEVDEF 3; Device character issics 
SOIBDEF 3; Device infomation block 
SOVIDEF ; SGETDVI ITMLST item codes 
SJPIDEF ; Job/proc information def 
SLCKDEF 3; LCK definition 
SLNMDEF ; Logical none services codes 
SMSGDEF 3; Message definition 
SSHRDEF 3; Share message 
SSTSDEF 3; Status definition 
SSYIDEF ; SGETSYI ITMLST item codes 
SUETPDEF ; UETP messages 


: Macro to build test tab.e entries. NOTE WELL! Some code depends on this 
; table having entries which are eight bytes long (i.e., a quadword). This 
3; length is available as the parameter C ND_SIZE. 


-MACRO TST_TABLE PROC, TYP,LKMOD ,RESR=<A>,PAR=< >,FLAG, TST_FLG=<*x0000> 
ITF LT “A/PROC/=LOW_PROC,- 
. R ; Illegal proc name PROC in TST_TABLE 
-LIF GT *A/PROC/-HIGH_PROC,- 
RROR 0 ; Illegal proc name PROC in TST_TABLE 


.ASCII /PROC/ : Process name to perform the action 
«BYTE TYP 3 yee of systen svc: ENQ, ENQW or DEQ 
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-LIF LT TYP, .ERROR TYP s egal TYP-argument in TST_TABLE 

“Ha oF te Cees «ERROR TYP ; Illegal TYP-argument in TST_TABLE 

ee -BYTE “XFF : Type of lock - SENQ LKMODE argument 

pe -BYTE LCKSK_"LKMOD'MODE ; Type of lock = SENQ LKMODE argument 

“ASCII = /RESR/ ; One character resource name 

me wk eed ; One character parent lock 

i -BYTE 0 ; Lock characs - SENQ FLAGS argument 

Ae -BYTE  LCKSM_*FLAG ; Lock characs - SENQ FLAGS argument 

; WORD TST_FLG ; Test action after calling system svc 
-ENDM TST_TABLE 


: This next macro is used to build the table of process names, to generate the 
; parameters we need to check that we only use legal process names and to build 
3; various other data structures which reiy on process names. It calls the X 
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ock Manager UETP Test 
ons 
: performed. 
2 “MACRO PROC _NAMES 
x P 
8 Q 
x & 
8 -ENDM PROC_NAMES 


EQUATED SYMBOLS: 


3; their orgering 
ENQW 


DEQ 
ENDTEST 
MAXCODE 


; Generate high a 


ie 


? 
§ 
4 
5 
; 
; 
0 

1 

§ : 
4 s 
3 = 
; 
1 ; don't rnetude it in 
§ MACRO PROCE 
4 PROC_COUNT = 
5 L 

; 

: 

0 

1 

g 

4 

5 

$ 

3 

0 

1 

: 

4 

5 
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Common event flags 
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; macro, which must be defined each time to the spe 
PROCESS NAMES MUST BE ONE ASCII CHARA 


23. 


nd low bounds for process names. 
: that the first. process name is assumed to be the master process and that we 


the count. 


$$ 
at NOF Te phot C6 PROC_COUNT = -1 ; Initialize count of 


ROC_COUNT+1~ 
PROC, mt eee 


Low youne 
PROC, PROC In Ye 
IIF LT HIGH -PROCS*AVPRORE SSS HIGH. PROC = ‘ajpaocesee 
OC_NA ands For process name bounds 


DONE_CEF = 64 

BAST-CEF = 65 

BAST-CEF_V = <65-64> 

CMP_VAL ~ = 

CMP"VAL_V = £$6-64> 

UNLOCK_CEF = 6 

LDET_CEF = 68 

LDET"CEF_V= DLDET_ CEF-64 
LRES-CEF™ = 6 

DLMASR = <1a<DLDET_CEF-64>>! 


<1@<DLRES~CEF-64>> 
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urpose to be 


; Master (driver) process 
: First slave (driven) process 
; Next slave (driven) process 


L_stendend — facility code 
lity code massaged 


codes 


message 
; tose message 


; Code depends ne not only on individual values of the following, but also on 
ng 


: Do ENQ. Code depends on this value 
: Do a Code depends on this value 


Do 
; END OF TEST code 
; Greatest legat TYP field in TST_TABLE 


Count process names. Note 


rocesses 

First is master, don't count it 

= sa/bRoc OCESS/ ; 
PROCESS/ ; nim > 

igh yo 


; Yenerate bounds and count processes 


:; CEF for action complete by driven proc 
3; CEF for block ing 99 ast + LWOryee. 

3 ...and correspoindi ine © 

; CEF for compare volus 

; ...and corres nding ste 

3; CEF for unloc 

; CEF for deadlock may +) a 

3 ...and correspondin 

; CEF for deadlock rele olved 

- ; Mask for SWFLAND of deadlock flags 
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1 
1 § BLKAST_V = 9 i Blockin wat 
1 y INCOMP_V = ; Lock mode incompat ibi ity test 
1 VALBLK_V = 5 i; Value b eek _ve* 
1 § SYNCST_V = ; SYNCSTS t 
4 19 DEADLK_V = 4 ’ Deadlock. x test =. gen" t know victim 
5 194 NOCAST_V = 5 ; No complet 
$ 195 NOWAIT_V = § ; Do not wait Ky DON E CeF 
136 VICTIM_V = 3 This. s a deadlock victim for sure 
1 135 BLKAST_M = 1@BLKAST_V ; And corresponding bit masks 
: ? INCOMP=M = 1aINCOMP~V 
9 VALBLK"M = 1@VALBLK-V 
0 3 8 SYNCST_M = 1@SYNCST_V 
00 : DEADLK"M = 1@DEADLK-V 
90000¢ 0 NOCAST-M = 1@NOCAST-V 
4 NOWAIT“M = 1aNOWAIT“V 
0000080 p 5 VICTIM_M = l1aVICTIM_V 
+ 2 ; Bits in LOCFLG. 
000 9° v=z0 ; Set if completion AST was delivered 
BOO8 of 00 10 SCPRCTV | ; Set if $FORCEX done on driven procs 
00000001 3 11 C_AST_M = 1@C_AST_V 
00000002 09 1¢ DCPRC_M = 1aDCPRC_V 
4 13: ; Bits in GLBFLG. 
000 00 18 DRIVEN_V = 0 ; Set if we are a driven (slave) proc 
00000001 000 1 DRIVEN is 1aDRIVEN_V 
0000001 00 18 dune =v" = ; Set if we're running in dump mode 
000000 g 0 1 DUMP-M == 1@DUMP_V 
000000 0 0 BEGIN. MSGV = ; Set if we've printed our beginning msg 
00000004 0 1 BEGIN_MSGM = 1@BEGIN_MSGV 
§ | Miscellaneous 
5 SYNC_EF = 1 ; Local cf for SYNCSTS test 
§ SNDMSG EFN = 4 ; EFN for Q10 to send to driven procs 
TEXT_BOFFER = 132 ; Buffer Length for FAO output 
3 LKSB-SIZE = 24 : Size of Logs status block in bytes 
CORN ND _SIZE= ; Size of a TEST_TABLE entry 
0 YNCR_EFN= ; Synch miscellaneous system services 
1 INDENT = 4 ; Spaces to indent when copying logs 
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ser Th Sty ey ype Data 
-PSECT RODATA,NOEXE ,NOWRT,PAGE 


3 
2. 
§ : See the PROC_NAMES macro definition for restrictions on the names of 


3 processes. 
: TST_TABLE process,sstype, lock-mode,resource,parent-id,ssflags,action-flags 
4 TEST_TABLE: 
; Test of new locks grant 
' TST_TABLE <P>,ENQ,NL,<A> 
TST_TABLE <P>,ENQ,CR,<B> 
TST_TABLE <P>,ENQ,CW,<C> 
TST_TABLE <P>,ENQ,PR,<D> 
TST_TABLE <P>,ENQ,PW,<E> 
; TST_TABLE <P>,ENQ,EX,<F> 
; Test of lock conversion 
: TST_TABLE <P>, ENQW,CR,<A>,, CONVERT 
TST_TABLE <P>,ENQW,PR,<B>,, CONVERT 
TST_TABLE <P>, ENQW,PW,<C>, ,CONVERT 
TST_TABLE <P>, ENQW,NL,<D>,, CONVERT 
TST_TABLE <P>, ENQW,EX,<E>,,CONVERT 
: TST_TABLE <P>, ENQW,CW,<F>,, CONVERT 
; Test of Deque 
: TST_TABLE <P>,DEQ,,<A> 
TST_TABLE <P>,DEQ,,<B> 
TST_TABLE <P>,DEQ,,<C> 
TST_TABLE <P>,DEQ,,<D> 
TST_TABLE <P>,DEQ,,<E> 
; TST_TABLE <P>,DEQ,,<F> 
: Test of lock mode compatibility and blocking AST 
' TST_TABLE <P>,ENQW,NL,<A>,,,BLKAST_M 
TST_TABLE <Q>,ENQW,CR,<A> 
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TST_TABLE <Q>,ENQW,EX,<A>,, CONVERT 
TST_TABLE <P>,ENQW,CR,<B>,,,BLKAST_M 
TST_TABLE <Q>,ENQW,CW,<B> 
TST_TABLE <Q>,ENQW,PR,<B>, ,CONVERT 
TST_TABLE <Q>,ENQW,EX,<B>,, CONVERT, INCOMP_M 
TST_TABLE <P>,ENQW,CW,<C>,,,BLKAST_M 
TST_TABLE <Q>,EWQW,PR,<C>,,,INCOMP_M 
TST_TABLE <Q>,DEQ,,<C> 
TST_TABLE <P>,ENQW,CW,<C>,,,BLKAST_M 
TST_TABLE <Q>,ENQW,CR,<C> 
TST_TABLE <Q>,ENQW,EX,<C>,,CONVERT, INCOMP_M 
TST_TABLE <P>,ENQW,PR,<D>,,,BLKAST_M 
TST_TABLE <Q>,ENQW,CW,<D>,,,INCOMP_M 
TST_TABLE <Q>,DEQ,,<D> 
TST_TABLE <P>,ENQW,PR,<D>,,,BLKAST_M 
TST_TABLE <Q>,ENQW,EX,<D>,,,INCOMP_M 
TST_TABLE <P>,ENQW,PW,<E>,,,BLKAST_M 
TST_TABLE <Q>,ENQW,CR,<E> 
TST_TABLE <Q>,ENQW,PW,<E>,,CONVERT, INCOMP_M 
TS)_TABLE <Q>,DEQ,,<E> 
TST_TABLE <P>,ENQW,EX,<F>,,,BLKAST_M 
TST_TABLE <Q>,ENQW,CR,<F>,,,INCOMP_M 
TST_TABLE <Q>,DEQ,,<F> 
TST_TABLE <P>,ENQW,EX,<F>,,,BLKAST_M 
TST_TABLE <Q>,ENQW,EX,<F>,,,INCOMP_M 

: Test of value block 

. TST_TABLE <P>,ENQW,CR,<V>,,VALBLK 
TST_TABLE <Q>,ENQW,CR,<V>,,VALBLK 
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yOe000 Read-Only Data iets Ti $8398 51 LOE TP SY. SRESUETLOCKOO.MAR: 1 . &) 
F 7 TST_TABLE <P>, ENQW,PW,<V>,,<VALBLK!LCKSM_CONVERT>, VALBLK_M 
Pr: TST_TABLE <P>,ENQW,CR,<V>,,<VALBLK!LCKSM_CONVERT>, | 
} ? : TST_TABLE <Q>,ENQW,PW,<V>,,<VALBLK!LCKSM_CONVERT>,VALBLK_M 
13 3 Test of tree structured lock and LCKSM_NOQUEUE flag 
19 33 : TST_TABLE <P>, ENQW,CW,<U> 
i. TST_TABLE <P>,ENQW,PW,<X>,<U> 
. 33 TST_TABLE <P>,ENQW,EX,<Z>,<X> 
Hs $1 TST_TABLE <Q>,ENQW,CR,<U> 
18 es : TST_TABLE <Q>,ENQW,PR,<X>,<U>,NOQUEUE ,NOCAST_M 
18 63° Test of LCKSM_SYNCSTS flag 
Bie ¢ ‘ TST_TABLE <P>,ENQW,PW,<S>,,SYNCSTS,<SYNCST_M!BLKAST_M> 
ot $3 TST_TABLE <Q>,ENQ,EX,<S>,,SYNCSTS 
Bie 4 : Test of Local deadlock detection 
O18 73 ; TST_TABLE <P>,ENQW,EX,<L> 
O10 f° TST_TABLE <Q>,ENQW,EX,<M> 
812 7 TST_TABLE <P>,ENQ,EX,<M>,,,DEADLK_M 
af 43 TST_TABLE <Q>,ENQ,EX,<L>,,,DEADLK_M!NOWAIT_M 
HE 1 TST_TABLE <R>,ENQW,NL,<N> 
if TST_TABLE <R>,ENQW,EX,<N> 
1F 5 TST_TABLE <R>,ENQW,EX,<N>,,,VICTIM_M 
$8 5 > Tell all detached processes to terminate. Generate a termination message for 
3 ; all processes. The driver process is smart oe to ignore the message 
H 3; because it must wait for all other processes to finish. 
34 “MACRO X PROCESS 
38 TST_TABLE <PROCESS>,ENDTEST,,,,,NOWAIT_M 
95 .ENDM : For termination List 
0 34 PROC_NAMES : Generate List for termination msgs 
1 38 TABLE_END: ; End of Test table 
00000000 1 - LON 0 
1¢ 38 TO_BE_FILLED: ; For patch use 
0000022¢ 1¢ 9 -BLKQ 2 


Sm 
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Vbu+000 Read-Only Data” aed $8 :98:18 YOETPSY. SREIUEYLOCKOO. MAR; 1 tg (dy 
401 BEGUN_ADDR: ; Used by UETPS_SATSMS 
GE 75 67 65 62 09° 02 SASCIC  /begun/ yee: a 
403 END_ADDR: 
6C 75 66 73 73 65 63 63 75 73 90° tbe = sASCIC /successful/ 
5 FAIL_ADDR: 
64 65 6C 69 61 66 90" 88 ~ASCIC /failed/ 
7 
MODE: ; Determines s ti ti ese 
454 460 onon2nor0e000 ; scien ; Oetpaton. stay caste sete 
SYSSINPUT: ; N f device f hich... 
UE 49 24 53 59 53 00000258"91069000" VASCID. /SYSSINPUT/ ; westhe test can be aborted 
INPUT_ITMLST: ; SGETDVI arg List for SYSSINPUT 
0020 0040 .WORD  64,0V1$_DEVNAM ; W d th ival 
00000481 99000489" LONG BUFFER, BUFFER_PTR ci tes Caan aa i bene 
00000000 - LONG ; Terminate the List 
TEN_SECONDS: ; Brief timeout so that subprocesses... 
FFFFFFFF FAOA1FOO «LONG -10*1000*1000*10,-1 3 «e-can finish after SFORCEX 


THREE _MIN: ; A three minute timer so that... 
bone =1 0010009 10000180 3 «eethe test never hangs forever 


LK_CEF_DESC: : Logical f EF 
54 53.45 54 4B 4¢ 00000289"010E9000" er TASCID /LKTEST_CEF/ cetane’commn ns Pega 


6 45 4 


LATEST BESS: ; Image name of driven process 


43 4F 4C 54 45 55 gpoogege "gio 0000° SCID /UETLOCKOO.EXE/ 
45 58 4 0 48 


1 

12 

13 

14 

15 

16 

4 

15 

0 

4 

33 

9 

0 

1 

§ ; Variable part of names of detached processes. This depends on one-char 
3 _mames, as described in the PROC_NAMES macro definition. 

4 .MACRO X PR S$ 

5 -ASCI1 /PROCESS/ 

§ x ; For table of ASCII Process names 

40 
*} 
rk} 
44 
rf 
i 


EN 
ALL_PROCS: Names of all processes 


©000G0 00 09 09 09 09 > WWI 9 9 9 DF DOO ON = MOOOF FFOOONMNINANO 


PROC_NAMES This list includes the driver process 
PROCS = ALL_PROCS+1 R in 


000002A9 : PROCS differs from ALL_PROCS 
i «--it excludes the driver process 
LOG_MSGVEC: SPUTMSG MSGVEC arg so we can print... 
0 WORD ---everything from... 


3,1 
[LONG UETPS_TEXT 
“WORD 1, 
-ADDRESS LOG_MSGPTR 


CNTRLCMSG: ; Control C messsage 
eASCID \Aborted via a user CTRL/C\ 


Pete te te 


.»the driven press LOG file(s)... 
e»-to our SYSSOUTPUT 


~uwnm 


WAINWINInonoTr 


SOOOOOCOCSOOCOOOCOCCOOCOCCOCOOCOOCOOOOCOOOOOOOOoOOO 


6525 7395 $8 41 gmeogs 
43 2F 4C 52 


TLOCKOO = Local Lock Manager UETP Test 1 AX/VMS Macro V04-0 P 1 
Vi. 850 Read-Only Data . e738 Pa} 984 88 £98: tg LOETPSY gk SUE TLOCK «MAR; 1 _ t2) 
De «4 
DC 451 SUBIPROC 518 NG: ; i eee 
20 3A 63 GF 72 50 000002E4"010E0000' OsD¢ 4 PROP ASCID. /Proc: / Laie os 
EA d 4 thls MAILBOX USED. FOR. PASSIN er 
cA 6 : : II TCOMMANDS TO DRIVEN PROCESSES ! 
EA 457 ILL_PROC_NAME: ; Ori i i 
61 67 65 §C &¢ 49 ODOD0ZE2"010E0000" OFA 458 “ASCID #iLlegal nese for cocpersting Geteched ereseses las 
Gc 50 6F Ge 69 Fe 61 95 65 90 SF GE Of0e 
SORORHRREAAR Mt 
459 
460 ERR_IN_TABLE: 
6E %e $3 a oF $3 ep er oe ,0¢0099" 461 -ASCID /Internal consistency error: test specified non-existent process./ 
Ea, 
65 9? 8 69 § 65 70 73 20 747 38 
© OF OS 93 68 G8 GF 98 90 90 94 GE 0865 
6E 46 
6E 64 6C 75 6F 43 00000376'010E0000" of isg yng ar 1 /Couldn't d ilbox t ting detached / 
. ouldn end m r ‘ 
¥] $3 of i 20 $F 00 ‘ 6 20 £0 re u s ailbox to cooperating detached process 
65 70 of 6F 6 $f 6F 74 e 6F 8 
63 61 74 65 64 20 4 3 § 74 61 94 
2— 73 73 65 63 6F 72 0 64 65 6 “as 
AC 466 CAST_ERRMSG: 
2C 72 6F 72 72 45 00000384'010E0000" 03A 467 ee | / " i T i " 
os fe OF fe Oe Oe oe $3 BS eh ee 8 : SCID /Error, no completion AST delivered./ 
76 69 6C 65 64 20 54 3 41 ¢ $f of 03 
D 468 
D7 469 BAST_ERRMSG: 
2C 72 6F 72 % 45 000003DF'010E0000" 03D7 470 -ASCID /Error, no blocking AST delivered./ 
$7 of 69 6B 63 6F 6C 6 ¢9 of 6E E5 
2 65 76 69 6C 65 64 20 54 33 ah £ 4 
4 471 
490 4% LKVAL cart tt 
76 8 6B 63 6F 4C 0000040 "9206009 * 04 47 CID /Lock value block returned !XL instead of !XL./ 
6 0 $8 $3 F 6C 6¢ ee § of 6 40E 
$ of 1 20 64 6 7 6 A 
1 20 66 6F 20 64 61 65 74 ge of 4 ? 
474 
4 475 NOSYNCH_ERRMSG: 
20 57 51 4E 45 24 9430°9106 909 * 04 476 -ASCID /SENQW returned !XL instead of SS$_SYNCH./ 
f 58 21 § 64 65 of ; 4 44 
20 66 Sf 4B 43 cE $0 53 SF 96 $383 Qese 
4 477 
4 $78 CASTSYNCH_ERRMSG: 
3 57 51 4E 45 $s 0000046D'010E0000' 04 47 -ASCID /SENQW delivered a completion AST for a resource which/- 
0 61 20 64 65 72 65 76 69 6C 65 64 04 


4) 


1 
( 


S£P-1986 4:88:48 LUETPSY. SAC IUETLOCKOO.MAR:1 °° 


f 


F 11 


ger UETP Test 


= Local Lock Mana 


Read-Only Data 


~ 
© a 

cd t ~ . 

e ~ . J P| 

ww wo - rd =< 

a ” c =e 

w c 4 — 
a . w 
z 3 c w e ] =~ 
at o @ =z ~ =“ © 
” e - 3 . . ai 
= . r— wn a c a 
wn” a = 3 w o = 
vw cs J Vv » P= ] - a 
> = a aa eo w od oO 
Pe = = - = 3 4 
ma 4 °o Zz w oe _ 1 
v 4 °o A 
3 3 a . Oo 7) ” 
°o ° ie) » 2 @ ” 
4 ca c & a t = 
w a S w eh - 
oH wo °o ” a4 oO 
. @ i) vw ”" Vv 
c a = CU © o =] 
ew @ @ a z - _ oe 
x ~ > o =] "ad eg 
& _ - a ” «e . cad 
~ - a=] ae «dt n" 
wy wv a — ” eo =] =< c 
a c =] °o v a -: - 
= a = 2 ae . 
— > wo ~ C7) o oo ail 

a Cc aw ” c _ o =< 
co @ an t — ae 
2a c av = wo C4) 

o w” 3 ad ad a 3 vo 
ee od bo Los bY 4 Pa ke a CY 
o 7 ” a vv - . © c 
c © Vv . ad a ea . 

N 2 =] ~ w 3 
wo - > a <= @ Qa ~ 
~ Cc ” o c 7) -- ay 
> ] °o ' wo S _ re) . 
°o = A °o 3 Ee o 
= x ” @ = we - ~ w" 
w v ”  ] ca a we p4 

c = 2 . v wo Vv 

~ _ aw o 

w nad za > c ~ 

°o r=] = 

@ c 2 °o 3 = 

w c ~ = 

cs vo A a «e 
~ @ ~ — (= . 

A ) A co ~ = o — 
Oo Oo =: °o °o 
- a _- = J . o 

v f=] v sg a t=] c t=] 
A Zz A z 7] z °o w 
ta) w ~» w o w = ~ a 
_— oe - Pe fe = = a 
v ~ v am Fad ~ = =“ =~ 

w” 

[= za oa ae = “2a 
om an — on ou 
ov aw vw nv Www 
wn ww “wo zw zw 
=z=< ca? oc a<c a< 
ae wee we ae ae. 
a = w ws 
ws w « o a 

t | a = “4 
=x t=] w se | 
Oo > i - < 
2 ” « Vv oe 
> oOo aq — w 
” 2 a > Qa 

Oo we) w wor oo ao- a at bd w oro 
@ @oaoco ts) cocoa co Oooo Onn oa Ow 
wv www w www wv www www wT www 


+ OPW OCU OOM Ne OO TTIW LOCUM — ON LOT OVOOOSFOVONW ER oo 
OO ££ DMV OOS OWW OF HK NOIM TT TWN OR. DOO SO Cf OOOO OWWe & OR KMIPMIM TN ts] 
fe ee ee we ww wala lala lel ole lolololololololololoro! OOooocceo 


con oe a = 
Mwarnnw OMununmasne Ownomoonr Seueues ws ovens. 8 Senom 
ODASOROTN OR GOS OnDO SSOSONNSS SAAR SSNLRONSS An 
awrncouwnm Snuunwanenn Secounonamo— Sounu Snmnomune Sonam 
DSrAronwon WOOOROONRD BWONGOORONAN WOOF BRRARNS u OO 
BONO’ TOrRNOON-s 7 we w Onwsuamo us 
Dur oonn SRDNOOONONR SOONNDONNERR SmwoOohK SHOSSOON SOON ON 
oa - — ~ = 

one Do dtoayvnmenvso vooCOork MYM TL awn WWwOMuUtY Oumnnu 

ROO, Os SUR NOOND GO z Osanne oe Sa ODOR NN WORRA 
Vunwomo S—— MWwOoun OWwNe@o om Woon Sun—mnoo wre ws 
DOOONTS Soo Wowo Sono Namow SRA — SonRY 
Wnvou oan SOswee weww Sunooe —aonr w OMnesemeC 80SSOwmu 
OrNoosN SNRDOOS NOOSD SOOND NIKE SANSS SRosOnNnRSs Snroos 
Lae eee) wr OOr~ MUO NERO CONOR NAW WER OORT uooon 
O-amvnam WOuRO MvO moun omm MOLON NOMuLEN wuevwo 
DODO sSN GROoN WoONs SAKOS SSKK SNwNt RN OOSCORO SSDSS 
SNDSOAN Soonm AOon Sronw RASS SAS SOOOCOR TONS 
WwIPNoOoOrwn —-MOOM wWeus WMunrm dronr MNOomw wrooumm _ ew 
Or ONAN RONNO FOSR BARRSK Snr Reet | 6ST NoNoy 
wr Ow ~ TTF MOow a aa own Tw ro a] Oma wow 
RSSSLAS WOORR SOON WORRD ONOD Rx Se SoSss SK Rane 


mr «wu Ow moO OonownmM Mwwe wer Oo uw OO Ovo 
s3 RRLSL RLL ANN RSE SRR RSSX RS BUSS 
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Page 1 
. ( 


1 


0 


ro V04- 
JUETLOCK 


ries Mac 
UETPSY.SRC 


é 


1 
24 
-ASCID \Deadlock was not detected/resolved in !UL seconds.\ 


=$EP=1986 00:98: 


G6 11 
Test 19 


ger UETP 


= Local Lock Mana 


Read-Only Data 


B0.maR; 


ERRMSG: 


89 DEADLK_ 


99 
308 NODLOCK_ERRMSG: 


deadlock not having been detected.\ 


-ASCID \Allocation of deadlocked resource succeeded despite\- 
<13><10>\ 


we 
co 
wn 


WwW VOD ~F OBCDDWDW OVW Mu Or-cocwd Oruw 
VOY OWW st COOK NOON 
WOWOOOOOOOOOOOORP PPP 


Ow on Quunw 
On OR DOOON 


So 

OO unMo dauws 
Booenove 
ee ah ko A 
owuwowo oro 
aan 


Ow zoo 
co orm 


SVEN SSS 
OOO 


Su Nocnrwn 
r~owoo 


“Stopieen, 
w ~ 
VOM TUOWN 
worur. Or%r- OVO 
VTOWOM ae we 


BSOLOSOO 

Ww mrws 
Soro SON 
Mn ow 
Sess SRS 


SERS RSS 


eASCID /Completion AST parameter was !XL instead of !XL./ 


10 NOTRMB_ERRMSG: 


11 


206 
507 CASTPAR_ERRMSG: 
508 


; 


RS 


-ASCID /Error reading termination mailbox from cooperating process./ 


ouoornrr 
2 


93°25" 
NOr 
~~ 
ADOT w 
oo ~N 
We CUO 
oor o 


we we w 
wo o 


Noo ork. 
~ wow 


™N 

wy oo 
we AK—MO 
oowoor 


NNO ww 
OOK 


ee 
oon 


-ASCID /Message type in termination mailbox was !XL instead of !XL./ 


ERRMSG: 
G TERMBX_ERRMSG: 


15 
1 


process id = !XL, final process status = !XL.\ 


-ASCID \Termination mailbox received for an unknown process,\- 
\!t/ 


: 
518 
19 


Ouwe-ws- ws 
or. 


OowmouOovue 
artnet 
—-AuOCOO acy 
OO NF. OME 


WEN VUOOOWN 


poo’ 


WP at. Oe CU 
 aeameenpey 
Orn uw. Gu.O 
OMOWUOOMON 


TFTOSMMMOMG 
novor.oowonm 


Ae OUPALMNO 
OOr. OF OO 


NOW” 

NS SSRRANN 
av wom 
oovoownr wv 


NOu COOU 
SSRS ROSS 


SSSR SSRN 


-ASCID /Error in cooperating detached process, id = !XL, status = !XL./ 


0 DETPRC_ERRNSG: 


C 


S52 
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Read-Only Data 


BROS SHAG ER 
65 6C 69 66 000008A0'010E0000' 
64 72 6F 63 65 72 000008AC'010E0000" 


any ene eene 


72 65 20 5 
of é 70 3 


3 


ooow 
Wooo 


ne MAA 
~o 
— 
moms 
AOrvo 
wu 
o 
MOCO 
So 


OF $8 79 70 6F 43 00° 
OB 9 SS a Pa) ga gs 
KERR EAMES 


73 65 63 of 72 50 B08 e293 10E000 : 

6F 66 20 73 61 77 20 53 41 21 

78 65 20 6F 74 6E 69 20 64 65 7? 
2E 67 6E 69 74 6 


MOMOLSMLLSNO 


<o 


MO LUVMVEVMEL ES 
[=] 


MOWNIUNS &rorom 


[=] 


YRevvern ss 
3 OWS 


Wu OW 


VO YRUWON 
mau oO sw 
NS VWWEOAO 
SAS mMoomMaA 
VORA VMLSAO 
Sun 

NYP WES e 
MNFSOoO VSmon 
NANMSL WSuan 
——9Of WwRwrr 
MNPNL LLM 
coono NOUFO 
NOM L£SvTvoe 
SOwmMnN —Wwoo 
WARRWEEWES 
MmNS—GOMOCFS 
"Oo "OW——909O 


N—=O0 AoW 
OOM Rao 


 foboS 


BD.0UREE 
51 4E 45 24 $9" 


57 51 4E 45 24 00° 


AALAMWAI —"QOCOMMMIVIAO 
UNDO OFONMA POOOWOS WII Ono»n 


woowowowownownownowowJowvowo 


969 


FILE: 

5 RECORD: 
RMS_ERR_§ 

8 ° 


fm 


338 Cr a 


BE soncen ns 


48 None 


45 NONE_LENG 
47 TEST_CODE 
48 

49 

50 

33 ENQ_CODE: 


233 ENQW_ CODE: 


Ln 


=SEP1 UETPSY. SR SUE TLOCK «MAR; 1 


; Fills in RMS_ERR_STRING 
: Fills im RMS_ERR_STRING 


/record/ 
Announces an RMS error 
/RMS !AS error in file !AD/ 


-ASCID /file/ 


ASCID 
TRING: 
ASCID 


G: 
ASCID /RMS error with cooperating process log file, !AS./ 


MSG: ; Introduces myperqtess log file 
ASCID /Copy of !AS, log file for subprocess !AD:/ 


G: 
SCID /Process !AS was forced into exiting./ 


.ASCID \Process !AD trying !AC RESNAM=!AD,LKMODE=!AC ,FLAGS=#*X!XB,-\- 


\l/ PARID-lock=!AD. Test flags are “X!XW. !ZT\ 


; !AD string for $FAO 
ASCII /none/ 
TH = .=-NONE 


$: 

-ADDRESS ENQ CODE 

-ADDRESS ENQOQ CODE 
-ADDRESS DEQ_CODE 


-ASCIC /SENQ/ 


List of SS we perform 


.on the definitions in the. 
. -Equated Symbols section 


eASCIC § /SENQW/ 


order’ ng and content are Sppentent.. a 
e 


1 11 
TLOCKOO = Local Lock Manager UETP Test 16-SEP-1984 00:26:1 AX/VMS M a= 
Met 860 Read-Only Data ° §-8 P=1984 $0: 98:18 Se eey. eRe sGE COCs 0.MAR;1 hens t 


5 £9 25 5825 £6 oesoy gmggoge 


05 O9EF 
F 5 DEQ_CODE: 
51 45 44 24 8" a3 823 4 eASCIC /$DEQ/ 
SFA Hs 
SFA LOCK_MODES: ; List of SENQ Lock modes 
Aig, SFA ; «ADDRESS NLMODE_CODE ; Ordering and content are dependent... 
Al - HA} 60 ° ESS CRMODE_CODE 3 «e-0n the definitions supplied... 
alc’ A 61 ° ESS CWMODE_CODE 3 «+eby the SLCKDEF macro 
. AIF A06 $¢ eADDRESS PRMODE_CODE 
Age" QAOA «ADDRESS PWMODE_CODE 
88 Ago" OA rf -ADDRESS EXMODE_CODE 
A A 5 ADDRESS NOMODE_ CODE ; This one is a dummy for $DEQ 
Al 96 NLMODE_CODE: 
4C 4E 9" A} 6 eASCIC /NL/ 
Al 568 CRMODE_CODE: 
52 43 69" Aly 385 = ASCIC /CR/ 
s7 4s 99 BE HAP SAMEERA ey 
AIC : 
AlF 72 PRMODE_CODE: 
52 50 63" AF 7 eASCIC = /PR/ 
0 AlF 
57 50 09! 055 Bbq PUNODE.CODE: pus 
02 OA 7 
A 278 EXMODE _CODE: 
58 45 9" . 2 57 eASCIC /EX/ 
A 378 NOMODE _CODE: 
6F 6E 69" “ 7 eASCIC /no/ 
A2B 0 
1067 0006 . ; 3 Se Tere ste Sr 4 evr scones ; SGETSYI be list foros, . 
. 3 «eemy node's name in a r 
00000000"0000009A" OASF 388 “ADDRESS, SCSNODE ,0 : pga Sat 
00000000 - 7 : «LONG 0 
A § ; Set up data structures so that mailboxes which serve as SYSSINPUT to 
n ; the processes we create are created in our group logical name table. 
A 5 LNMPRCDIR: ; Table name to force mbx logicals... 
or 0 -ASCID /LNMSPROCESS_DIRECTORY/ ; ...to appear in a group table 
A 
A 
A 
A 


91 
3 LNMTMPMBX : ; Logical name which tells SCREMBX... 
9 -ASCID /LNMSTEMPORARY_MAILBOX/ ; ...where to put mbx logical names 


45 54 26 4D 4E 4 00A60'010E0000° ‘ 
4C 49 é4 4D 5F 35 3900 $8 ri 59 ry: ng 
A? 4 
A? 95 LNMITMLST: ; SCRELNM ITMLST naming where mbx... 
10° QA? $ . LNMGRPLEN,LNMS$_STRING ; ...logical name is to be defined 
00000000 De’ ayy 3 ofpestes LUNGRPEUNE 


Voe~000- 


J 
= Local Lock Manager UETP Test 16-SEP-1984 00:26:1 AX/VMS V04- P 
Read/Write Data ° ae iSety 90:98:12 LOE TP SY. SREIGEYLOCKOO.MAR: 1 tt 2) 
A 
0000 


"90000011 * 
"90000011 


OA’ 


SF 30 30 4B 43 4F 4C 54 45 5 


5 
0000000A 
0000001C 
00000020 


00000028 
00000000 


"90000086" 


00 
47 GF 4C 2E 54 53 45 54 4B 4C 


00000008 


00000000 00000000 


0000 


cL 
24 50 54 45 5 


000000A0 
5F 


4B 43 4F 4C 3F 


tt I IOOOOOOOCOOD 


WII SS SF AEE EOMOODOOCOOMOOCWWD——COCFT@ar 


A.AAWAWINWWIWIInononononononnd 


SOOOGOOCOSOCSOSSSOSOSSSOOSOSoOOSOOOoOoOOoOO 


«SBTTL Read/Write Data 
-PSECT RWDATA,WRT,NOEXE ,PAGE 

DRIVEN_DESC: ; Name of driven process. Driven procs... 
«WORD TEST_NAME_LEN+1,0 ; «.-always have qualifier char at end 
-ADDRESS TEST_NAME_I 

TEST_NAME _D: ; Name of the test - .ASCID version 
~@ORD _TEST_NAME_LEN,O 
ADDRESS TEST_NAME_I 

; THESE NEXT ITEMS MUST REMAIN CONTIGUOUS! 

TEST : ; Name of the test - .ASCIC version 


“BYTE TEST_NAME_LEN 

TEST_NAME_I: ; Name of the test - .ASCII version 
sASCII /UETLOCKOO_/ 

TEST_NAME_LEN = .-TEST_NAME_] ; Length in chars of our test name 

PROC_QUALTF IER: ; Driven process qualifier appended... 


-BLKB i «e-toO test name 
; End of contiguous items 


MBXCHANS: ; Mailbox channels to communicate with detac 
-BLKW PROC_COUNT 


vw 
DD 
So 
oO 
ee 
L—] 
mn 


; Detached processes id 
; End of the proc id table 


LOG_FILE_DESC: ; Skeleton name for driven proc log files 
~ WOR LOG _FILE_LEN,O 

-ADDRESS LOG FILE QUAL 
; THE FOLLOWING ITEMS MUST REMAIN CONTIGUOUS! 
OG_FILE_QUAL: 3; Character to distinguish between procs 


"BLKL PROC_COUNT 
“LONG 0 


° 0 
eASCII /LKTEST.LOG/ 
OG_FILE_LEN = .-LOG_FILE_QUAL 
; End of items which must remain contiguous. 


; ENQ(W) Q10 arguments List 


fa 


mm 
FS 
- 
“ 
po 
ee 


SENQ RESNAM = RESR_DESC 
; DEQ Q10 argument List 


BALA OO ODNA NE WIN OOO NAME WN SO ONO NE WWIN CO ODNOU EW OOONOAUE 
re 


64 

4 
$6 TST_COMMAND : ; Test command from the test table 
e -LONG 0,0 
645 TSTFLG ; Tells actions after calling sys svc 
o WORD 0 
o RESR_DESC: ; Resource name descriptor 

4 «LONG RESR_LEN 

$2 -ADDRESS .+ ; Note: We assume all the following... 
6 ASCII “UETPS"’ ; (Facility name, for convention's sake) 
é SCSNODE : mee a 3; (Node name, so unique within cluster) 

et tes : (Separator) 
655 RES ; (Resource name) 
65 eASCIIL /?LOCK/ 3 «.-are contiguous 


K 11 
TLOCKOO = Local Lock Manager UETP Test 16-SEP-1984 00:26:1 AX/VAS # 4- P 1 
Vet 860 Read/Write Data ° mets 7 0:98:18 Oe They eae IUEYLOCLOO.MAR: 1 “ead (8) 


00000011 34 RESR_LEN = .-RESR_DESC-8 
DLOCK_TIME: ; Delta time for SSETIMR to prevent... 
QO0000AA 0 ae tw. -deadlock hangs Ase 
FFFFFFFF «LONG <1 
: GETUIC: ; Get vIC 
ee) «WORD 4 3; Length of recieve buffer 
4 2 5 -WORD JPIS$_UIC ; Request VIC 
$008 A $6 - LONG K_UTC ; Buffer address 
0 «LONG ; No return Length 
A ? 8 «WORD 4 ; Get our base priority 
9 C «WORD JPI$_PRIB 
£88 670 -ADDRESS BASE_PRI 
C 671 - LONG 
000 3 or¢ - LONG ; End of List 
CA 674 LK_UIC: ; Put UIC here 
00000000 74 of? -LONG 0 
CE $99 BASE_PRI: ; Parent process’ base priority 
00000000 45 ors -LONG 0 
0D 680 LNMGRPNUM: ; Equivalence name giving the table... 
5F 50 55 GF 52 47 24 + ies 64 ? 1 eee eer 3; «+-name in which mbx logical names... 
20*20'20" 20°20" 0° OD 6 g <BYTE “*A/ /(6) 
0000010 3 ? : LNMGRPLEN = .-LNMGRPNUM 3 «are to be put 
BE 6 $ LNMGRPNIL: ; Descriptor to convert... 
0000 0006 E 6 ~ WORD LNMGRPLEN-LNMGRP ,0 
000000DC" Oe6 688 -ADDRESS LNMGRPNUM+LNMGRP ; «UIC to text 
OFA 690 DIBBUF _DESC: ; Device information buffer descriptor 
0000 0074 OOEA 691 «WORD DIBSK_LENGTH,0O 
000000F 2° OOE $36 -ADDRESS D1B8B0F 
Ore 693 DIBBUF: : Device information block 
00000166 ae o3e -BLKB DIBSK_LENGTH 
166 238 MBX_DESC: ; Mailbox logical name descriptor 
bo00ise" 18a $9 “ADDRESS MBXNARS 
16E 639 MBXNAM: © ; Mailbox logical name 
58 42 4D 48 ac 3 19 9 ASCII /2LKMBX/ 
0000 102 f MBXNAM_LEN = .-MBXNAM 
174 «67 5 MBX_IOSB: ; Mailbox Q10 10 status block 
00000000 00000000 Ve : -LONG 0,0 
0000 ire $ EX_MBXCHAN: 0 : Termination mailbox channel 
“a 6F 3 EXIT_MSG: ; Buffer for termination mailbox msg 
000001D2 017 7 . ACCSK_TERMLEN 
1D ey EX_PROC_CNT: ; Exit process count 
00000002 0 4 LONG PROC_COUNT 
1D Hg TTCHAN: ; Terminal channel 


L 11 
= Local Lock ae TP T “SEP- 
Meotiurite bore Ot "erste 


00000000 
00000003 
0000 

00 
00000000 


00000000 00000000 
00000000 
00000000 
00000465 


44 64 44 


80000004 01 
00000511" 


00000479 


0000 0084 
00000489" 


0000 0084 
o000be89" 
0000050D 
00000000 


00000000 


00000000 00000000 


"00000525" 


“SEP=1 


«LONG 0 
TYPE: 

«LONG 3 
GLBFLG 

-WORD 0 
LOCFLG 

BYTE 0 
EF _STATE: 

«LONG 0 
SAVED_VAL: 

LON 0,0 
LKID_ADOR: 

-LONG 0 
LKSB_ADDR: 

«LONG 0 
LKSBS: 

-BLKQ <3*26> 
EXIT_DESC: 


. 0 

-ADDRESS £XIT_HANDLER 

[ADDRESS STATUS 
MSC_BLOCK: 

.BLKB 4 
FAO_BUF : 

WORD TEXT_BUFFER,O 

“ADDRESS BUFFER 
BUFFER_PTR: 

.WORD TEXT_BUFFER,O 
[ADDRESS BUFFER 


BUFFER: 
.BLKB = TEXT_BUFFER 


ARG_COUNT: 
- LONG 


0 

STATUS: 

.LONG 0 
QUAD_STATUS: 

.QUAD 0 
LOG_ MSGPTR: 

ADDRESS kas _BUFFER 
RMS_BUFFER: 


4 00:26:1 AX/VMS Macro Vv04-0 Pa 17 
She Oesshing LOR Pee eae sce YG ceko mans: 29° UZ, 
; System service type 
; Holds flags which remain thru test 
; Local flag - flags for one TST_TABLE event 


; Event flag longword 


; Saved value of first quad of value block 
; Lock id address 

; Lock status block address 

; Buffer for LKSB's 


Exit handler descrip 


Message block for GETMSG 


; FAO output string descriptor 


; Text buffer descriptor 


; FAO output and other misc. buffer 
; Argument count 
; Final status code 


; 10 status block for misc. sys. svcs. 


ares Org. for ng when copying.. 
ri he a log file... 
“> our SYS 


; Log file record buffer 


mit 
vou=000 Rosdiurite bata ee “eet "SrSEb=13be ba:88sce Loe tbe. eaeduereoceoo.mar:1 2% (8, 
000005A9 0525 771 -BLKB - TEXT_BUFFER 


N 11 
O40” Rmse$2 pate Structures SrSEp=1986 04:98:46 EGE TPSY. sReSUEYLOCKOO.mAR; 1 


Ty 3 -SBTTL RMS-32 Data Structures 
ay i -ALIGN LONG 
ane 5§ LOG_FAB: 
AC 28 SFAB - 
AC 77 FNA = LOG_FILE_QUAL,- 
AC 7? 6 FNS = LOG-FILE-LEN,- 
mF ORG = <SEO>,- 
BAC g j MRS = TEXT_BUFFER 
FC 4 LOG_RAB: 
aft ; 5 nate SRAB - 
SFC 7 6 FAB = LOG_FAB,- 
me OP UBF = RMS~BUFFER+INDENT,- 
ore f g USZ = TEXT_BUFFER 
649 £30 INPUT _FAB: | ; Reads SYSSINPUT 
0640 196 FNM = <SYSS$INPUT:> 
2638 194 INPUT_RAB: ; Reads SYSSINPUT 
0690 796 FAB = INPUT_FAB,- 
0690 797 UBF = TST_COMMAND,- 
0690 798 USZ = COMMAND_SIZE 


lB 


6D OA2F ‘CF 


76 50 
14 
70 0680'CF 


FW STW 


0481'CF 
00741132 er 
086 


0010"cF 


a 


0000 


DE 


OOGCCCCCOCOCOCOCOCCOCCOOOOOOCOCOOCOOOOe OMe 
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OOCOCCCoooocoooo 


Oooo 


00 0CON NNN 


SoOoOOooooooooooooO 


x 
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PORN 


>>> Pr roOwowo 
VNNNNW SHOP 


Lock 
- | 


atfzation 


"Pee 1986 ba; 


Gore OETESS eee scey cele man:1 Pee 29, 


+ $OTTL TESTLOCK = Initialization 
“PSECT TESTLOCK,EXE,NOWRT, PAGE 
-DEFAULT DISPLACEMENT , WORD 


This module serves as both the controlling (driver) and controlled 


(driven) process of the Lock 


Manager test. 
those things which are common to 


Initialize and set up 


oth processes - overhead, determining 


our function, timers and interprocess communication. 


UVETLOCKOO, “M<> 


MOVAL _ SSERROR, (FP) 
SSETSFM_S ENBFLG = #1 
SDCLEXH~S DESBLK = EXIT_DESC 


Determine if we are the master (driver) 


3; Entry mask 


; Declare exception handler 
; Enable system service failure mode 
; Declare exit handler 


process or one of the slave (driven) 
determine which one. Use that info 
us to the world. 


See what sort of thing SYSSINPUT is 
If we've no SYSSINPUT, we are driver 
If SYSSINPUT is not a mailb 

---we are driver 

Check further to see if we're driven 


OXsee 


See if mailbox message... 

e+eiS the one we expect... 

---to tell us which process we are 
BR if no match - we're driver 
We're driven proc - copy which one 
Attach it to our name... 
eeeIN a aces we need it 
Remember that we're a driven 
We do only what we're told to 
Have we a legal process name? 
BR if so - we're all set up 
; Bad name - quit 


process 
do 


Fix up our name... 

.sewherever it is needed 

Remember that we're a driver process 
We tell other processes what to do 


processes. If we are a driven process, 
to form our process name and announce 
SOPEN FAB = INPUT_FAB 3 
BLBC RO,10$ : 
BBC #DEVSV_MBX,- ; 
INPUT_FAB+F ABSL_DEV,10$ ; 
SCONNECT RAB = INPUT_RAB,- 3 
ERR = RMS_ERROR 
$GET RAB = INPUT _RAB,- 
ERR = RMS_ERROR 
CMPC3 SUBPROC_STRING,- 3 
SUBPROC_STRING+8,- 3 
TST_COMMAND 3 
BNEQ 4 3 
MOVB (R35) ,PROC_QUALIFIER : 
INCW TEST_NAME_D 3 
INCB TEST _NAME_C 3 
BISB2 #DRIVEN_M{GLBFLG 3 
LOCC (R3),#PROC_COUNT,PROCS ; 
BNEQ 20$ 3 
SFAO_S CTRSTR = ILL_PROC_NAME,- 
OUTLEN = BUFFER_PTR,- 
QUTBUF 2 FAO BUF ,~ 
} 4 - 
2 = #PROC_QUALIFIER 
PUSHAL BUFFER_PTR 
PUSHL i 
PUSHL #UETPS_TEXT!STSSK_ERROR 
PUSHL 
BRw ERROR_EXIT 
10$: 
DECW TEST_NAME_D : 
DECB TEST _NAME_C 3 
:BICB2 #DRIVEN_M{GLBFLG 3 
20$: 


SSETPRN_S PRCNAM = TEST_NAME_D 


; Set our process name 


| 


pr 


; may encounter ourself. 
SSETIMR_S paytn = THREE_MIN ; Set 3 minute timer 
ASTADR = TIME_OUT,=- 

REGiDT =# 


C 12 
TLOCKOO = Local Lock Manager U ie Test 16-SEP=1 0: AX/VMS 04-0 p 1 
yO4r000 TESTLOCK = Initiatizat od Pa ath bg 2 v0 
gg2c scr DF 7 PUSHAL BEGUN_ADDR 
F ODF : PUSHAL TEST _RAME_¢ 
2 oO PUSHL # rgument count 
000"¢ 4 009 BF ODD 60 PUSHL #UETPS_SATSMS!STSSK_ succéss Set the pein message code 
00000000'GF 04 FB 1 CALLS #4, G*LTBSSIGNAL ; Print the UETP begin time message 
iDE'CF O04 A ¢. BiSW2 #BEGIN_MSGM,GLBFLG : ind leat that sentinel was given 
ee : Set timer to catch hares s waiting for another process or for any hangs we 
$e 


o} 3; Enable control C handler if run from terminal. 
ig? BBC te ; BR if SYSSINPUT is NOT a terminal 
74 INP ris ay DEV .5 
75 SGETDVI_S DEVRAR 2 ss Ie ; Get the name of.. 
76 FN EEN, - 3; «device which may abort test 
77 ITMLST = s TNeOT a 
78 10SB8 AD_STATU 
79 BLBC QUAD_STAT 0$s~ 3; Avoid CTRL/C handler if any error 
80 SASSIGN_S DEDHAM = ; “BUFFER PTR,- ; Set up for CTRL/C AST handling 
ss $Q10W_S fey TTCHAN Enable CTRL/C AST‘s... 
4 
85 
86 
tf 
8 
89 
90 
a) 
38 
4 
95 


45 OSiS'CF E9 


= #10$ * ioctsicht CTRLCAST,- 
Pi = CCASTH 
A yg ph a NAME _D : ~--and tell the user... 


PUSHL fyeres 1 yb ae success"; 3 «eshow to abort gracefully... 
#3,G*LIB$SIG $ ose 


Create and associate with a common event flag block. This will be used to 
; signal that a particular operation of a driven process has been completed. 


bos: 


eaedl OF 


00748328 8F 0D 
00000000'GF 03 FB 


: 
| 


SASCEFC_S EFN = #DONE_CEF 
AME = LK_CEF DESC 


The logical name MODE is available to knowledgeable users to invoke special 
actions in this test. 


STRNLOG_S LOGNAM 
RSLLEN 


; Create and assoc common EF cluster 


MODE ,- : If MODE translates... 
BUFFER_PTR,- 


RSLBUF 
a #*A/DUMP/ BUFFER 3 essto DUP"... 
BISW2 #DUMP_M,GLBFLG 3 «+-then we type a running log 
SGETSYI_S ITMLST = GETSYI_ITMLST ; Get my node's node name 


ALL things common to the driver and driven processes have been done. Split 
3; up and get on to the main work of the test. 


3BC #ORIVEN_V,GLBFLG,DRIVER ; BR if we are the driver process 
BRwW DRIVEN ; We are a driven process 


DP \ \ PH PW OMOMOWVNO SOOO OA LLL LLL LF FU S| SQOOSMMMMMrMMMMNOOOOOOOOOoO@WWWw 
AOQOOCOCOD BDO SMNNPNIMPIMIMVINIGO OTT TTF COMS OWVOWWOWNIN NNW SS SE MMM MMMM OVI Ory 


O489'CF 50405544 05 »} 
01DE "CF 2 i 


9 
? 
: 60$: 
5 
13 
g 


03 O1DE'CF 017 4 


Tae aes ay. / 
beeempeuere Tee” MCRERIBEE SRANSIE REGIE BteSceNPSCBo nin"? $H| |B 


VETLOCKOO = Local Loc 
v04-000 TESTLOCK = Driv 
1A 1; i -SBTTL TESTLOCK = Driver Process 
1A i$ : This is the controlling ahs of the lock manager UETP test. It 
1A 18; reates detached, ‘‘cooperatin rocess(es), then, based on the entries 
1A 19 ; n TST_TABLE, either calls Lock anager 7 services or sends mail 
1A ; to (on@ or more) cooperating process(es) to have the process(es) call 
te 4 3 : @ Lock Manager system service. Results are checked. 
1A9 3 i BRIVER: 
1A9 4 SCREMBX_S ae ¢ EX 6 ge ; Create and associate termination mbx 
1A 925 wAX XnSG : west K “TERMLEN, = 
1C6 3 $ SGETCHN_S aH : EX 3; Get channel infomation - we need... 
106 928 RIB = BISBUr *DESC : ...the mailbox unit number 
O1DC § 929 a Ml a ITAL ST = GETUIC ; Get our UIC and our pose priority 
02 D O1F1 930 PUSHL “#2 : We'Ll convert a oe by Cues 
7E tH C re 931 MOVZUL oot | al 3 «+.integer to astine’ 
Sees Be SE SAY LangteN } ber of 
; he ng group number of... 
00000000'GF 04 FB 0200 934 CALLS #47G*OTSSCVT Bop ev process aaich rune us 
0 07 «935 SCRELNM_ § TABNAM = LANPRCDIR,- - ; Saieee SYSSINPUT mbx name... 
07 «69 § Len AM = LNMTMPMBX, 3 «+-tO appear in... 
0207 9 iT MLST = CNMITMLST 3 «+8 group logical name table 
0009 «= 330 4; oa8 ; BSBW CREATE_PROCS ; Go subroutine to create detached procs 
0221 940 : Have an outstanding read to the termination mailbox, should any detached 
: re ; process end 
8 1 805 : $Q10_S CHAN = EX_MBXCHAN,- 3; Read termination mailbox 
1 944 FUNC = #10$_READVBLK,- 
6 1 945 ASTADR = EX “MBX_AST,- 
1 308 jose = MBX_TOSB>- 
1 94 = EXIT_ASG 
él 48 p = #ACCSK STERMLEN 
4C 950 : For each Line in TEST TABLE, either execute the command directly or send a 
4C 951 ; message to one of the driven processes. Wait for the driven process to 
rt: 326 : complete the command, if necessary. 
59 OO00'CF ODE rt aee st ian TEST_TABLE ,R9 ; Address of beginning of test table 
OO83'CF 69 7D 3) 329 MOVa (R9) , TST_COMMAND ; Get an entry of the test table 
02A8'CF 0083'CF 91 56 95 CMPB psi. COMMAND, ALL_ PROCS ; Is it for self? 
3A SOs 2p 528 BEQL ; BR if yes 
5F 380 SCLREF_S EFN = #DONE_CEF i steer CEF which says command is done 
011A 30 6C 961 BSBW SEND_MSG Send command to the detached process 
OF OO89'CF 04 €E1 of oe8 BBC #DE EADLKV VAISt gees. ios; ; BR if pot egedtech special case 
; 96 SWFLAND_S ae #00 7 ; Deadlock s ‘tues on has been set up... 
t? 308 108 ASK = ease 3 ee We watt until it's resolved 
19 0089°CF 06 €0 4 3e9 BBS #NOWAIT_V,TST tea 30$ ; BR if no_wait_done_cef bit set 
A oe SWAITFR_S EFN = “#OONE=C : vait until another process finish 
7 3 3 : executing the test tone and 
OA 11 i 3 208 BPR 30$ ; We've finished this table entry 
0084'cF O03 91 39 on CMPB WENDTEST,TST_COMMAND+1 ; Is this endtest for driver process? 


E 12 
TLOCKOO = Local Lock Mana UETP Test 16-$ AX/VMS M Pa 
Viat 860 TESTLOCK TS - DOr iver brecess : g-S6F =|38% 80: §¢: ig YOETPSY. eR SRCIUE Obek MAR; 1 - 3) 
03 «13 9 if BEQL 30$ ; BR if so - we'il rgally ‘Shed when... 
A 3 «eethe test table n 
O14F 30 n fe 30s BSBw EXECUTE ; Go execute the test command 
59 08 Ad D A id: “  MOVAL COMMAND _SIZE(R9) RO ; Get address of next test table entry 
g D A 7 L oe He : Is it end of the table? 
} Ag 4 BEQL T_PRCS 3 ‘a if yes 
FFA AB 7 BRW tet _ COMMAND 3 Next entry 
AEP aasrocs 
9 ¢ $HIB _S ; Hibernate until created procs exit 
0021 +31 B 98 BRw SUC_EXIT ; The test is over, let's go home 


-SBTTL TESTLOCK = Driven Process 


This is the controlled process of the Lock Manager UETP test. It 

is created by te driver process, then waits for commands from the 
driver process to tell it how to call Lock Manager system services. 
In some cases, results are checked to see if they are what we expect. 
Note that SYS$INPUT is already defined as the way commands are passed 
by the driver program. 


= INPUT _RAB,=- ; Read a command 

= RMS_ERROR 

CUTE 

N = #DONE_CEF ; Tell the driver process we're done 
NEXTMSG 


0128 30 BSBW ; Perform it 


SOOOOOOOOOOOMM@@OC 
OOD NAME WH OOONOM 


Voooeowwww 


—— 
oow 


DF 1 


nn 


F 12. 
vO4-000 TESTLOCK'= Driven Process * . —-"S-$Eb=198e as88in6 WetPSY.sResUEYLOckOo.mar:1 “2% 
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4 ! 3 -SBTTL Clean Up and Exit 
d9 1 ¢ : Arrive here from either the driver or the driven process. Process 
4 i $ 3 exit or failure is the same in either case. 
D9 1008 SuC_ExIT: ; Successfully exit 
10009900°8F 00 e094 MOVL = #SS$_NORMAL!STSSM_INHIB_ASG,- 
ce ! 1 SEXIT_S STATUS ; Exit with status 
44 1013 ; To use FAIL_OUT, push to the stack the address of an error message and 
D 1 13 ; BRW FAIL_OUT. 
ED 1015 FAIL_ouT: ; Failure exit 
1 OD ED 1 1§ PUSHL #1 3 Arg count 
00741132 8F DD EF 101 PUSHL #UETPS_TEXT!STSSK_ERROR ; UETP error code 
3 D FS 1 18 PUSH ; Argument count 
0908 1 F7? 101 BRW ERROR_EXIT ; Error exit 


H 1 
Vbat000 Sopete bateahed Mosestes +o Mailboxes "$8 : sat ri 88: ¢8: ig LOE tPSy. en SRC e5CeYcoce «MAR; 1 gt (3) 


1 ' -SBTTL Create Detached Processes and Mailboxes 


p++ 

; FUNCTIONAL DESCRIPTION: 

; Create detached = fresraces and associated mailboxes routine. Such 
processes ar led driven recesses because they only perform what 
this, the dr ver process, tells them to do. Detached processes — 
the pene UIC are created according to the process indicators (Q, 

ite storee at addresses beginning PROCS. The created processes 
w run the same ima , as this, but will be able nf? distinguish itself 
oa this process by the content of the mailbox which is its SYSSINPUT. 
There are mailboxes associated with each crested. process as 
communication channels. 


; CALLING SEQUENCE: 
; BSBW CREATE _PROCS 


; INPUT PARAMETERS: 
; NONE 


Process name table, PROCS 
; : OUTPUT PARAMETERS: 
NONE 
; IMPLICIT OUTPUTS: 
Exit if error 
; COMPLETION CODES: 
NONE 
: ; SIDE EFFECTS: 
Creates detached, cooperating processes 


IMPLICIT INPUTS: 
ee _PROCS: 
MOVC3 


OOO NIA UNE AN SO OD NA UE WAIN ~2£O OO NAN EW 0 OD NOUN EW OOO NOAOUNE 


NOAA AAAAAAASAAMAAMAAMNANAANE FRR RRR RRR 


02DC'°C 28 SUBPROC_STRING,- ; Initialize mailbox message... 
0 Bee SUBPROC” STRING+8,- : ove that will tell driven proc... 
3" TST_COMMAND ; .eewhich one it is 
6 dO ; Save this pointer into TST_COMMAND 
28 02A9'C PROCS ,R2 ; Addr of process name indicators 
5 001C'C MOVAL MBXCHANS,R3 ; Addr of associated mailbox channel 
54 0020"¢ MOVAL PROCIDS,R4 : Addr of process ids 
D4 108 RS ; Indexes into process qualifier table 
OO1B'CF 624 MOVB )ERS],PROC_QUALIFIER ; Set up process name 
O1GE'CF 624 MOVB (R 1 f- XNAM : Set up assoc petites Logical name 
0034'CF 624 MOVB (R ee £06 FILE_QUAL ; Set up log 
66 624 MOVB (R2) (R6) ; Set up pos Bde y to say ‘driven proc” 
SCREMBX_S —. : (a3) TR5) = e! Create mailbox and pssign ghennel 
7 #COMMAND_S1 g,° 3 oe _noseage Length in bytes 
BUraG ; Buffer 
LOGNAR = MBX 2besc S Logical. name “O° LKMBX,"R'LKMBX, etc. 


SCREPRC_S tN = (R4)CRS) : freste detached process 
7 IMAGE = LKTEST DESC,- 


7 OUTPUT = LOG_FILE Desc’ - 108 8F ssouTPUT 


~n 
>> > PMMMMM > fMTNWOOO—-O Wl—-MT>>yPPYrrYrrr>r>r>r>>>>>r>>>>r>r>r>>> > YP > PP Yr YYr>r>Y 
tet wate at imi admiad imi miadat dada aad ad aD ee I ad edad edad ad add ad dad edad ad adadadad adadadadaad 


SOSOSSSCSCSCOSDSOSOSODOOOOSOSOSSSOSOSOSOOSDOSOOCSOOO 
NNN 
ae 
o 
rat =f=f= 
wae<<< 
->>>r 
a 
** Sete Ge te Ge te ee & 


BBE IPM III) 8 9 9 BQO FF 8 8 ee ee 8 8 ee 8 ee ee en rn ee en nn ee ee 


VIM = Wasa 
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SOOOOOOOCOOOOOOCOOCOOOCOOOOOOOOOOOoOoOO 


1 12 


TLOCKOO = Local Lock Manager UETP Test 16-SEP-1984 00:26:1 AX/VMS Macro V04- Page 27 
Vit O60 Create Detached Presessee and Mailboxes §- 3ee- 138 $0: 98:18 DE TPSY. SAE IGETEOCLOO.MAR: 1 . dy 
4A 107 INPUT = MBX_DESC,- ; SYSSINPUT 
4A 107 PRCNAM = DRIVEN_DESC,- ; Proc name 
4A 1 UIC = LK_UIC,= ; Same UIC as pnts controller 
6A 1 BASPRI ="BASE PRI,- : Same base priority 
4A ¢ MBXUNT = DIBBOF+DiaSw_UNIT ; Termination mailbox unit number 
7E 6345 3C B 1084 MOVZWL (R3)CR5],-(SP) 3: Send the driven proc's first command 
OSAC'CF O01 FB 44 ! 5 CALLS #1,MBx_Qfo ; Tell it that it’s a driven process! 
90 55 02 fe be 1 : AOBLSS #PROC_COUNT,RS,10$ ; Next process if any more 
0 8 1088 RSB 


vl 


J1 
- Local Lock Manager UETP Test 16-SEP-1984 00:26:1 AX/VMS Macro 
Determine Which Hs ven Process Gets Comm g- set 8? 90:12 


. -SBTTL Determine Which Driven Process Gets Command 
4 
5 
9 
9 
9 
9 


FUNCTIONAL DESCRIPTION: 
Send message to cooperative processes routine 


eee SEQUENCE: 
BSBw SEND_MSG 


INPUT PARAMETERS: 
NONE 
sate! INPUTS: 
Message is in TST COMMAND 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
Mailbox message sent to the designated process 


COMPLETION CODES: 
In STATUS if error 


SIDE EFFECTS: 
NONE 


Boe Se Ge Ge Ge Ge Ge Ge Se Ge Se Se Se Ge Ge Se Se Se Ge Se Se Se Se Ge Se 
; = 


DWDODODOOOOWOOOOVOOVOOOOOOOVOVODOOOOOOO 


SEND_MSG: 
CLRL 


R5 Index into driven processes 


2 2 2 a 2s ss a ss bs — bb bs a a a tt a 


DNAVUVE WN (OO ONAUE WN 0 OONOUE WN 


a 


108: : Which process? 
O2A9"CF45 0083'CF 4 vr Th] CORN PROCSERS 5 sonpare presess indicator 
F255 02 F2 039 AOBLSS #PROC_COUNT,RS,10$ : Try again if more process indicators 
025° CF OF 99 PUSHAL ERR_IN TABLE : Error message 
F4D 1 4) 208 BRW FAIC_OOT ; Failure out 
7E 001C" CF45 3c A : MOVZWL MBXCHANSCRS5],-(SP) 
O3AC'CF 01 fe r 4 a #1,MBX_Q10 : Send the message 


UETPSY. Se Sue YLOCK —— (33) 


a 
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TLOCKOO = Local Lock Manager UETP Test $ aa AX/VMS Pa 
Vba+000 Send Messages to Driven Processes "9r3tP 1382 88: ¢8: ig UETPSY.S AE SuErLOcko0. MAR; 1 os BD 

AG i} i. -SBTTL Send Messages to Driven Processes 
AC 1132 : FUNCTIONAL DESCRIPTION: 
AC 11 5 This routine is called to send a message to ony one of the driven 
AC 11 : ; processes. It “does a $Q10 and checks to see that the message was sent 
": 1} 3 correctly. 
AC 11 : > CALLING SEQUENCE: 
rs 1 8 3 CALLx  #1,MBX 010 
AC 1140 : INPUT PARAMETERS: 
vy: 11? 3 O4(AP) has the channel by which we access the mailbox 
AC 1143 : IMPLICIT INPUTS: 
S oe 
AC 1146 : OUTPUT PARAMETERS: 

OBAe 1148 | — 
AC 1148 : IMPLICIT OUTPUTS: 
ws 1139 3 Message written to mailbox. 
AC 1138 : COMPLETION CODES: 
fe 1482 3 Result of $010 

O5AC 1155 : SIDE EFFECTS: 

Q3AC 1138 5 Program terminates if an error occurs. 

Sea 1157 ; 

O3AC 1158 ;-- 

peat 1100 MBX_QI0: 

OFFC rv 1183 7 " WORD “M<R2,R3,R4,R5,R6,R7,R8B,R9,RIO,R1I1> = Entry mask 

9 ry 1168 $Q10w_S CHAN = # rertd pe EFN,- ; Send the message 

0 AE 1165 FUNC = #10$ TURITEVBLK, - 
AE 1198 10SB8 = MBxX_TOSB 
AE 116 Pi = TST C xb, - 
A 1168 P2 = #COMMAND SIZE 

01 0174'CF F 06 118 BLBC MBX_10SB8,10$ ; BR if I10SB is not right 
4 1109 108: RET 3; Return 
0511°CF Ihe a 3¢ D6 117 : MOVZWL MBX_IOSB,STATUS ; Use IOSB status as exit status... 
11°CF DD 0 117 PUSHL STATUS i ..-and a message of complaint 
val +4 4 yee A gy SNDMBX_ERRMSG 
00741132 oF OD eS 1128 PUSHL #UETPS_TEXT!STSSK_ERROR 
4 D ED 117 PUSHL 
0810 31 O3EF 1178 BRw ERROR_EXIT 


ls 
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AX/VMS Macro V04- 
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Par it) 


-SBTTL Execute Test Commands in the Test Table 


p++ 
; FUNCTIONAL DESCRIPTION: 
Decode the test command and set u 


Execute the service (ENQ,ENQW,DEQ 


CALLING SEQUENCE: 
BSBw EXECUTE 


the service parameters accordingly, 
requested 


OOD CD00 CD CD CD CD CD OD 0D 
Wrn—O 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 


F 11 
F 11 
Fe 11 
F 11 3 
Fe 1184; 
Fe 1185; 
Fe 11 § 3 
F 11 3 
F 11 3 3 
F2 1189; 
Fe 1190; 
ee 
: W137 3 Test command stored in TST_COMMAND quadword 
F 1195 ; OUTPUT PARAMETERS: 
Pp bee 
F 1138 3; IMPLICIT OUTPUTS: 
: B43 3 Address of LKSB in R3 
F 1 a 3; COMPLETION CODES: 
F ! 88 3 In STATUS if error 
F 1204 ; SIDE EFFECTS: 
8 F 1205 ; Exit if error, 
Fe 1 $ 3 BSBW CHECK_UP if ENQW to check correctness 
; n may be generated for some locks 
O3F 1 An AST b d f lock 
OS 1909 | 
8 F 1210 EXECUTE: 
ah 94 F 1211 CLRB LOCFLG ; Clear all local flags 
56 0083'CF bf F6 1 13 MOVAL TST_COMMAND,R6 3; Addr of the test command 
36 9 FB 121 TSTB (R63+ ; Skip the process indicator 
O1DA' CF § GA FD 1214 MOVZBL (R6)+,TYPE ; Get type of service, ENQ, ENQW or DEQ 
O1DA' CF D1 40¢ 1215 CMPL  #ENDTEST, TYPE : Is it end of test for driven process? 
3 1¢ +? 1 16 BNEQ 10$ ; BR if not 
FECD §3 ri ; : ! 108 BRwW SUC_EXIT ; We're done if it is 
05 O1DE'CF 4 E1 #0 1 i BBC #DUMP_V,GLBFLG,20$ ; BR if we don't dump every command 
OS2F'°CF 00 FB 41 0 ves CALLS #0,DUMP_ COMMAND : Type every command to SYSSOUTPUT 
57 OO3F'CF DE 0417 1 § MOVAL ENQLST,R7 ; Assume ENQ(W), Addr of ENQ arg List 
04 A7 pa 41c 1 CLRL. ENQ$_EFN(R7) > Assume EFN = 0 
08 A7 6 A OQO6IF 1224 MOVZBL (R6)*,ENQ$_LKMODE(R7) ; Get lock mode 
52 $ 9A 0423 1225 V2 (R6)+,R2 :; Get resource indicator 
OOA1'CF 426 1 § Ove 2,RESR ; Set resource name 
-: s 18F C2 0428 1 SUBL 2 #*A/A/,R2 : Index of associated LKSB 
5 C4 0432 1 : LL LKSB Size R2 : Displacement of the LKSB from LKSBS 
53 (0 F5*¢ D 1 MOVAL | <SBSTR2),R3 : Address of associated LKSB 
O1F1°CE DO 043A 1 0 VL RS KSB ADDR : Store the addr of LKSB 
O1ED'CF O4 A of 435F 1 MOVAL 4(R3) LRID_ADDR ; Address of the LOCK ID 
02. O1DA'CE 445 1 ‘ CMPL PE, #DEQ : Is it DEQ? 
3 ¢ 44A 1 BNEQ $ ; BR if not 
oo0cD «63 rae i : 308 BRw DEQS ; Yes, go dequeue 
OC A? 3 «6553)06=6—DO CO44F =1236 MOVL R3,ENQ$_LKSB(R7) 3; Address of LKSB 
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Execute Test Commands in the ere Table 5° SEp= 1984 62: $8; i UETPSY. SRETUETLOCK 


Pa 1 
~3EP=1 UeTPSY  SREIUETLOCKOO.MAR: 1°" (tay 


54 86 ok 1237 MOVZBL )+ ; Parent lock indicator 
18 A ps 456 1 CLRL ENGS, Bh FARO CR?) ; Assume no parent Lock 
20 3 } ; ; gnee a - 3; Is here parent lock? 
54 00000041 of C 124 SUBL oa Ae RG 3; Index of LKSB for cearent lock 
4 . ¢ ° 124 MULL ; Displacement of LKSB of parent lock 
y 1F5°C4 «OD 124 MOVAL CESER Ce ; Address of LKSB of parent lock 
18 AZ? 04 AG i) 8 1 te 408 MOVL (R4) was” PARID(R?? 3 Parent lock id 
19 § 9A 7a” 4g MOVZBL (R6)+,ENQ$_FLAGS(R7) Get $0 ai af 
OD 10 A? E1 76 «124 BBC okey ee vecsts ENG. speach ), = =] My not SYNCSTS flag test 
04 1 DO 047B 124 MOVL S_EFN ; Set up EFN f NCSTS test 
7F 4 te SCLREF s PIN i. : We need to initialize the ef for it 
1C A7 B76 CF 1) if 1 3 MOVAL COMP_AST snes ASTADR(R7) ; Addr of completion AST 
20 A? jeer 1») ; 1 26 MOVL 4c10 ADDR ENQS_ ASTPRM(R7) Se aram to be addr of LKID 
0088 'CF § BO 0494 125 MOVW  (R6)%,TSTFLG ; get, test flag 
03 008B'CF 05 £1 0499 1254 BBC #NOCAST_V,TSTFLG,60$ : BR if no completion. ast bit not set 
1C A? 4 49F 35 ‘on CLRL - ENQS_ASTADR(R7) - : fio complétion A 
24 A? 4 ins 1 3§ CLRL ENQ$_BLKAST(R7) : heouge blocking ast not requested 
06 008B'CF 00. =«—€1 4A5 1 38 BBC #BLKAST_V,TSTFLG,70$ BR if block_ast bit not set 
24 A? «OB807"CF OE 4AB 9 ae MOVAL BLOCK_AST.ENQS$_BL CKAST(R?S ; set address of blocking AST routine 
46 OO8B'CF 04 =£€1 0481 1261 BBC #DEADLK_V,TSTFLG,80$ : BR if not deadlock special case 
487 1 66 SCLREF_S EFN : “abiD DET_ CEF ; Deadlock must be detected and... 
404 126 SCLREF_S EFN = #DLRES-CEF -- resolved. One flag per. condition 
1C A? _OB3F'CF DE 04D1 1264 MOVAL ~ DLOCK_AST,ENQS , ee & ; Deadlock gets specia 
FBD3E280 BF OC 4D7 1265 MULL #-10000006*<PROC_COUNT+5>,- ; To prevent hanging Fs 
51 BOORDDO" GF 40D 1 96 Got K$GL OUAITTIME RI ; ee-while waiting for... 
OOA6 ‘CF 1 DO Q4E3S 126 MOVL DLOCK- TIME 3 ee tt detection.... 
4EB 1268 SSETIMR_§ S'6AYTIR- = DLOCK_TIME,- t ..ewe Set a timer... 
O4E8 1 $9 ASTADR = DLOCK“TO_AST,- : ...which will get us out... 
rt ! 10 one REQIDT = tKID ADDR 3 «eeif need be 
OD O1DA'CF E8 O4FD 1 i BLBS TYPE ,ENQWS ; Dispatch for correct system service 
5 127 : (Correctness of TYPE guerentecs a 
5 1274 3 «eeassembly time chec 
5 1275 ENQS: 
5 1 6 SENQ_G ENQLST 3; Eng 
028—E 30 Q50B8 127 BSBW" CHK_SS $ Check “RO to see if we queued up OK 
05 2 ; ! oe ms RSB 3; Return 
: i. 9 SENQW_G ENQLST 3 Enqueuve and wait for EFN 
008C 2 8 1 BSBW CHECK_UP ; Go check final status 
a8 ! ¢ eset RSB ; Return 
OO73'CF 04 AS 00 335 1 : nov . At85) DECLST+DERS _LEID 3 = id of the lock to be dequeued 
; De 
026E 3g B 1 § BSBW" =©CHK_SS : Check “RO to see if we dequeued OK 
oe RSB ; Return 
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-SBTTL Type the Current Command 


p++ 
3 FUNCTIONAL DESCRIPTION: 
; Type the current command to be executed. 


> CALLING SEQUENCE: 
CALLS  #0,DUMP_COMMAND 


INPUT PARAMETERS: 
NONE 


ea ala) 


IMPLICIT INPUTS: 
TST_COMMAND filled with next command to execute 


OUTPUT PARAMETERS: 
NONE 


DOOOCOCOOOOOOOOOORD 


USE WO O@NOUES WO 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Message to SYSSOUTPUT 


UMP_ COMMAND : 
. WORD 


AAA HIPDPPIPPPIMPINIPIPIMIPIPIPIMPPIPIPPIPIPIPINIPIPIPIPPD 
DOWWOMD OF 2 2 8 nn no 


oO 

> 
PUPP PV IV PUPP PUPUPUPUPUPU SUSU SUSU USES III 
ee ne ee en ee ee ee ee ee ee ee oe oe et ee ee oe ee ee ee ee 


10 
ip 
18 
14 
1? 
OFFC 1? “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> = Entry mask 
51 0084'CF i MOVZBL TST_COMMAND+1,R1 ; Get the type of SS call 
52 QOO85'CF 9A 0 MOVZBL TST COMMAND+2,R2 ; Get the kind of lock we tried 
51 be D1 1 CMPL #0E0,R1 ; Were we doing a $DEQ? 
0 1 § BNEQ ; BR if not 
VL LCKSK_EX +1, : No mode for SDEQ, say that 
52 06 OD :  v08 MO #LCKSK_EXMODE+1,R2 de for S$DEQ h 
53. 01 00 4 5 VL #1,R3 ; Assume that we've a parent lock 
54 0087'CF D 4 § MOVAL TST COMMAND +4 ,R4 
64 g 9 4 CMPB #*Aa7 /,(R4) ; But have we? 
1 4 3 BNEQ 0 ; BR if we have 
53 4 OD 5 MOVL #NONE LENGTH AS 3; We have none... 
54 O9DA'CF ODE : 9 208 MOVAL NONE,R 3; «Supply appropriate message 
2 § SFAO_S CTRSTR = DUMP_MSG,- ; Format the TEST_TABLE entry... 
OUTLEN = BUFFER PfR,- ;: ...into something humanly readable 
: 4 OUTBUF = FAO_BUF,- 
5 P = = 
5 6 P : #1$T_COMMAND +0, ~ 
; Se 2 TEST CODESCRI °* 
: P5 = #TST COMMAND $3, ~ 
5 r4 PS = LOCK ay Ed * 
5 4 P = TST_COMMAND+5 ,- 
5 45 PS = R3,= 
é 4 P = R4,- 
44 P10 = Sf _COMMAND+6,~ 
5 45 P11 s @ 


vl 


0481 . 
Ou , 
"GF 3 


= Loc 

Type 
F 
D 
D 


"oO 


B 
04 


ER 
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MeteTarinueg? Tt TREE ABSALON 
; } Stag pyrreR. PTR 
1 


4 PUSH 
4 PUSH ETPS_TEXT!STSSK_INFO 
F te ree Fe Got TSS IGNAL 
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TLOCKOO = Local Lock Manager UETP Test SEP-1984 AX/VMS Macro V04- Pa U 
tee Check Correctness ef the ENGu Test i sats ri Be: 98: 1g UETPSY.S YORE IUEYLOCROO.MARS 1 = ig) v0 
. 1 506 -SBTTL Check Correctness of the ENQW Test 
2 i FUNCTIONAL DESCRIPTION: 


OUTPUT PARAMETERS: 
NONE 


A Check correctness of enqdeq service routine. 
At : CALLING SEQUENCE: 
nN 8 BSBW CHECK. uP 
A? INPUT PARAMETERS: 
“i! NONE 
A? IMPLICIT INPUTS: 
A? 4 Status code te RO, LKSB 
5 Address of bese B in R3 
: Address of SENQW argument List in R7 


IMPLICIT OUTPUTS: 


SNA AAAAAAAAS 


Error message if error 


SOOOOCOOCOCOO COC OCOCOCOCOCOOOOOOOOOOCOCOCOOCOOOOCOOOOOOCOOOOOOOOOOOoO 


a kk ek et et a bs tn a ds 4 a a bb = —s 2 a = a as a ss 2 > 2s 2) 2 2 2 a st 


ane 
A? 
SA7 
SA7 
SA? 
SA7 
SA? 
aN, 
SA7 74 COMPLETION CODES: 
ght o in STATUS if error 
5A7 6 SIDE EFFECTS: 
5A7 8 BSBW CHK_XXXX for further check 
3A 4 _ 
SA7 1 CHECK_UP: 
03 10 A? 03 4 SA7 § BBC #LCKSV_SYNCSTS,ENQ$_FLAGS(R7),10$ ; BR if not SYNCSTS test 
00D6 1 3 37 108 BRw CHK_SY YACSTS ; Check SYNCSTS flag test 
03 10 A7 0¢ § SAF 5 : BBC #LCKSV_NOQUEUE ,ENQS_ sage te 9 tt 20$ ; BR if NOQUEUE not specfied 
017 1 384 : ons BRW CHK _NOGUEUE ; Check NOQUEUE flag test 
03 008B'CF 07 4 5B7 8 ‘ BBC #VICTIM_V,TSTFLG,30$ ; BR if not dlock test w/ known victim 
01A3 1 208 i 30s BRW CHK “DEADLOCK 3; Check for deadlock - return via subr 
0109 33 5¢9 91 ; BSBW CHK_SS ; Check RO = #SS$_NORMAL 
O1FS at2 38 BSBW CHK_LKSB ; Check LKSB statis code = #SS$_NORMAL 
03 OO8B'CF 05 0 05C6 94 BBS enocast V,TSTFLG,40$ ; BR if no_completion_ast specified 
0012 0 ce $6 one BSBW CHK_CAST i Go check” completion ast delivered 
"CF 1 1 F 9 ; BBC #INCOMP_V,TSTFLG,50$ ; Incompatible flag se 
—* 0047 0 305 38 $08 BSBW CHK _BLOCKAST ; Go chock blocking poe * setboared 
03 10 A7 of 1 pe 400 f BBC #LCK$V YALELK EGS FLAGS(R7),60$ ; BR if not value block test 
002A 0 360 ; 1 os BSBW CHK_VACBL ; Go ‘shock value block test 
05 O5€ 408 ~ es 
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«SBTTL Check Completion AST 


FUNCTIONAL DESCRIPTION: 
Check completion ast delivered routine. 


; CALLING SEQUENCE: 
; BSBW = CHK_CAST 


; INPUT PARAMETERS: 
; NONE 


Vias000 Check” 


vo 
no 
ox 
- 
°o 

 ] 


—DOO0OOo 
WN OOOnNOu 


: IMPLICIT INPUTS: 
: NONE 


; OUTPUT PARAMETERS: 
; NONE 


; IMPLICIT OUTPUTS: 
; Exit message if error 


; COMPLETION CODES: 
; in STATUS if error 


; SIDE EFFECTS: 
Exit if error 


SDOOCSDSCODSCCOCODDSCODODOCOODOOODOOOOODOOO0O 

rAd Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab ab Ah Ah Ah Ah Ab Ah Ah Ab Ah Ah Ab db ah dh dh ah ah ee oe lel 
MMM MMMM MMM MMMM mcnienienicvnicvnievicevicvicvycviecviecvecviecvec vic vie veers s 

— ss 2 oo td 2 2 2 = = 
SN et te ee ee 


WWIWIWIWWIWRononononononononony 3 2 2 


NOUS WN OOD NAOUE WN" OOONOUS 


CHK_CAST: 
07 O1EO'CF O00 €4 ne BBSC #C_AST_V,LOCFLG,10$ ; BR if comp_ast bit set (AST deliv.) 
O3AC'CF pf PUSHAL CAST_ERRMSG ; Error messege 
FCFF 1 108 BRW FAIL_OUT ; Failure exi 
05 RSB ; Return 
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VO4060 Check Blocking AS ? wei oets ri 88: ¢8: ig UETPSY.S SRE TUEYLOCKOO.MAR; 1 = 8) 
-SBTTL Check Blocking AST 
FUNCTIONAL DESCRIPTION: 
Check blocking ast delivered routine. The dol tyery of blocking AST 
to another is indicated by setting a common EF BAST_CEF. 


scare SEQUENCE : 
BSBw CHK -BLOCKAST 


INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
Error message if error 


COMPLETION CODES: 
In STATUS if error 


SIDE EFFECTS: 
NONE 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se Ge Ge Se Ge Ge Ge Ge Se 
+ 


CHK _BLOCKAST: 
SALTER S EFN = #BAST_CEF ; Wait for blocking ast deli 
F_S EFN = #BAST_CEF : Reset the blocking ast CEF 
; Return 


vered 
flag 


te www Ua al ahah ah ab ab ab ab ah db ah ah al ah ab ah al al alvalvalalvaneaieal 
OVWMMMMMMMMMMMMmMmMmMmnmmmmmmmmmmmemenerry 
DO 0 0 0 8 rn ee oo 
— 2 — 2 — = 2) — — 2d 2 2 9 — — —d — — 2) 2 — 2 a 
Sb telat ta tab at at et eh ee tt et et hee 
SDD PDP PPA PAPA DP GB BP PPP EO 


OOONA NEW 9 OO NAUSEA O ODNOUS UW 00 


o 
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VE 860 Check Lock Value Block ioe 7 8? :§8: 1g UETPSY.SR REJUETLOCK 0.MAR;1 . (io) 
. 1478 rae -SBTTL Check Lock Value Block 
A 142% : FUNCTIONAL DESCRIPTION: 
: 13e ; Check value block test routine. 
60A 1439 CALLING SEQUENCE: 
: 1328 3 BSBW CHK_VALBLK 
6 A 14 0 : INPUT PARAMETERS: 
Bol eh 
é A 14 j : IMPLICIT INPUTS: 
: 1? : 3 Address of SENQ argument List in R7 
ray 14 : : OUTPUT PARAMETERS: 
g0h 12 3 NONE 
60A 14 § : IMPLICIT OUTPUTS: 
60h 1eay § Error message if error 
60A 1498 + COMPLETION CODES: 
an 1337 : In STATUS if error 
6A 1495 : SIDE EFFECTS: 
60A 1496 ; NONE 
gk Hea) i 
60A 1499 CHK_VALBLK: 
58 O1FI'CF DO 060A 1500 MOVL §_LKSB_ADDR,R8 f LKsB 
07 10 A7 a 060F 1501 BBS #LCKSy CONVERT . ENQS_ FLAGS CR 3 Z $ BR if not a new lock 
O1ES'CF 08 A8 D 0614 1386 MOVQ 8(R8) ,SAVED_V > Save the low quadword of lock value bk 
7 2 i wee ; Return loc 
01 008B'CF 02 £0 618 1505 BBS #VALBLK_V,TSTFLG,20$ ; BR if VALBLR test flag set 
5 1 1306 208: RSB ; Return 
06 1508 |  $READEF_S EFN = #CMP_VAL «= ; Read the CEF flag 
6 1309 STATE = EF-STATE 
11 O1E1°CF 02 £0 0633 1510 S #CMP_VAL_V rF STA ATE,30$ ; BR if CMP_VAL flag set 
639 1511 SSETEF_S EFN7= #CMP_V : Set the common EF CMP_VAL 
08 A8& 6 646 1218 NCL 8(R8) : Increment the user lock value block 
0 ot 1317 308 RSB 3; Return 
O1ES'CF D6 064A 131? : INCL AVED_V 3 jncronent the saved value 
O1ES'CF 08 AB D1 4E 1 16 CHPL BCR > SaveD _VAL : Is the lock value OK? 
OE 12 065 13) BNEQ ; Error if not equal 
656 1 18 SCLREF s oF = #CMP_VAL ; Reset the CEF 
05 267 131) 408 RSB : Return 
664 1521 ; $FAO_S Usp te = LKVAL_ERRMSG,- ; Value block error message 
664 1 é OUTLEN = BUFFER PTR,- 
664 1 pen = FAO _BUF,- 
664 1524 = 08(R8),- 
4 1525 P2 = SAVED_VAL 
0481'CF oF é 1 $ PUSHAL BUFFER PTR 
FC68 Os 31 eas f BRW FAIL_OOT 


—_—— 
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VE t8So Check SYNCSTS Fla + Routine oe et 9 8? £98: 1g UETPSY. RED GE TLOCK MAR; 1 _ (3) v 
} 9 ee «-SBTTL Check SYNCSTS Flag Routine 
1 : : FUNCTIONAL DESCRIPTION: 
? ! z ; Check LCKSM_ SYNCSTS flag test routine 
685 1535 : CALLING SEQUENCE: 
2 ! § : BSBW CHK_SYNCSTS 
685 1 a : INPUT PARAMETERS: 
! Z : NONE 
é 1541 ; IMPLICIT INPUTS: 
1542 ; RO is the returned status from SENQW 
6 1545 ; LOCFLG synehrontzes us with other test routines 
: } rt: ; Test flag in TSTFLG 
685 1346 : OUTPUT PARAMETERS: 
Ses ieee “re 
685 1549 : IMPLICIT OUTPUTS: 
be 3 1329 : Error message if error 
685 133¢ > COMPLETION CODES: 
685 1553; In STATUS if error 
0685 1554 : 
: 1386 | : SIDE oa 
685 1557 : 
0685 1398 tuk SYNCSTS: 
56 008B'CF 03 E1 685 155 C #SYNCST_V,TSTFLG,30$ ; BR if SYNCH flag cleared 
0000 ' 8F 33 a de90 1360 ey A 9558. SYNCH : compare ae states code 
$5 DD 069 136 PUSHL RO : Save the status. 
694 156 $FAO_S sresTe = wos yaen ERRMSG,- ; ...and give : “Useful error 
694 1208 OUTLEN = BUFFER_PTR,- 
694 1565 ouTBUF = FAO_BUF,- 
694 1296 
0481°CF OF 6A9 156 PUSHAL 4 FFER_ PTR 
DD O6AD 1568 PUSHL 
00741132 8F DD OQO6AF 1 4 PUSHL #UETPS_TEXT!STSSK_ERROR 
oses eRe | + ia ERROR EXIT 
6BA 1572 108: 
07 O1EO'CF 00 €1 OQ6BA 1 7 BC #C_AST_V,LOCFLG,20$ : Should no comp ast delivered 
0465'CF DF 06CO 157% PUSHAL CASTSYRCH “ERRMSG : Error message 
FC26 1 c ' g? 208 Ris FAIL_OUT ~ ; Failure exi 
6C7 1 8 SREADEF_S EFN = hes nic’ - 3; Read EF 
tH 1 4 “STATE = EF_S ATs 
GF shalt 4 €1 D4 157 BBC #SYNC_EF ctr STA E,50$ ; Error if SYNC EFN set 
4D3' sch pf 6DA 1 9 PUSHAL SYNCH ERRMSG ; Error message 
1 red] } ses Rw FAIL_OuT : Failure out 
0000 ' 8F 5 "1 6E1 1 § CMP RO, #SS$_NORMAL ; Check RO 
3 6E6 1584 Bea. 46-40 ; BR if equal 
6—8 1585 PUSHL R Save the status. 
6EA 1586 $FAO_S CTRSTR = NOSYQUEUE _ERRMS6, - ; «sand give a useful error 
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A 1587 OUTLEN - 9 Ag Ay PTR,- 
gra I OUTBUF = FAO. BUF. ~ 
0481'CF 44 708 ! ; A rg ° FFER_PTR 
00741132 f Dp f PUSHL BUETPS_TEXT!STSSK_ERROR 
04F 2 1 ah ! $4 608: BRW ERROR_EXIT 
At ! 38 SSETEF_S Tv. = By CEF ; Set unlock event flag 
FEB8 3830 Hs 1238 0s: BSBw “Ene “ ; Comp ast should be delivered 
05 0729 1600 RSB ; Return 


SWAITFR_S C_EF ; Wait for SYNC_EF 
east’ 


vl ado 


or 
co 
ma 
cr 
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-SBTTL Check NOQUEVE Flag Routine 


FUNCTIONAL DESCRIPTION: 
Check LCKSM_NOQUEUE flag function test routine 


CALLING SEQUENEE : 
BSBw CHK _NOQUEUE 


INPUT PARAMETERS: 
NONE 


+ 
+ 


IMPLICIT INPUTS: 
Status code in RO 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 


PAA AA OOOO OPO OOAOAO 


Si i Ti Ni i a Dee te Sin Si Sie Si Dit tn Site Di Din Din tn Site Dit tn itn Din Dit tn itn Dit Site te Jit ite Ste tn ie in 
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? Y Error message if error 
6 § Vaated |) + CODES: 
? z STATUS if error 
625 SIDE EFFECTS: 
6 § NONE 
6 : CHK _NOQUEUE : 
0000'8F 50 861 630 CMPW RO, #SS$_NOTQUEUED ; Is RO status code OK? 
‘na 631 BNEQ 108 : BR if not 
0 ? § 108 RSB ; Return 
O511'°CF 50 DO 634 ; MOVL Tus 3; Save returned status as exit status 
635 $FAO_S eo RSTR = PAR ERRMSG, ~ ; Wrong status returned 
6 § OUTLEN = BUFFER 
6 OUTBUF = FAO BUF" 
6 : P1 = STATUS 
511°CF DD 4 6 PUSHL STATUS 
ee ee 
00741132 } +4 ; $68 eer #UETPS_TEXT!STSS$K_ERROR 
049F 1 6 644 BRW ERROR_EXIT 


vl 
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f ] ¢$ a -SBTTL Check Deadlock Test 
763 1648 : FUNCTIONAL DESCRIPTION: 
7 1649 ; Check deadlock test routine. This routine is executed only in those 
7 1 ; situations where a victim can be preselected and the results of 
f } : requesting a lock predetermined. 
763 1653 : CALLING SEQUENCE: 
oe ! 23 BSBW CHK _DEADLOCK 
763 1 $ : INPUT PARAMETERS: 
f } 3 Status code in RO 
76 1839 > IMPLICIT INPUTS: 
oe 1969 3 R3 points to lock status block 
7 1868 : OUTPUT PARAMETERS: 
oe 1884 3 NONE 
76 ig 5 : IMPLICIT OUTPUTS: 
oe 1006 3 Error message if expected status not found 
76 1668 : COMPLETION CODES: 
Fes 1690 | ste: 
763 1671 : SIDE EFFECTS: 
76 1676 : Program exits if expected status not found 
res jena 
763 1675 CHK_DEADLOCK: 
0000'8F 63 B1 076 1928 CMPW (R3) ,#SS$_DEADLOCK ; Is the status code OK? 
01 iF 768 167 BNEQ 10$ ; BR if not 
FES TEP ios, 8 
O511°CF 63 3¢C O07 1989 ; MOVZWL (R3),STATUS ; Save returned status as exit status 
770 1681 SFAO_S CTRSTR = VICTIM_ERRMSG,- ; Wrong status returned 
77 16 ¢ OUTLEN = BUFFER_PTR,- 
770 16 OUTBUF = FAO_BUF,- 
779 1684 P1 = STATUS 
511°CF OD 7 1685 PUSHL STATUS 
481'°CF +4 : 19 $ a BUFFER_PTR 
00741132 4 +4 4 4] 19 3 pear #UETPS_TEXT! STSSK_ERROR 
0466 31 0799 18 0 Rw ERROR_EXIT 


at 
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f : ! § on -SBTTL Check Status Code Subroutine 
79C 1 4 : FUNCTIONAL DESCRIPTION: 
79¢ «(1 ; Subroutine to check normal status code in RO (CHK_SS) 
f $ ! 38 : and LKSB (CHK_LKSB), exit if error is found. 
79C 1698 : CALLING SEQUENCE: 
79¢ 1838 ; BSBW SC CHK_ 
f : ! , : BSB CHK_LKSB 
, ¢ 1? ‘ > INPUT PARAMETERS: 
79C 1704 : 
79C 1705 ; IMPLICIT INPUTS: 
79%C «(17 § ; Status code in RO (CHK_SS), in LKSB (CHK_LKSB) 
as! 1? : Address of LKSB in R3 TCHK_LKSB) 
3 1208 ; OUTPUT, PARAMETERS: 
79€ (1711: 
79C ar 3; IMPLICIT OUTPUTS: 
Pe ay 3 Exit if error 
79C 1715 : COMPLETION CODES: 
ay: at 5 In STATUS if error 
79¢ 1718 > SIDE EFFECTS: 
079C 1719; Exit if error 
1445 1720 ;-- 
F3e 1752 CHK_SS 
0000'8F 50 61 a78¢ 17 : "CMP RO, #SS$_NORMAL ; Success ? 
01 ie zal 7 4 BNEQ 10$ ; BR it not 
é eturn 
7A4 1726 108: 
0511°CF 50 4 i 17 $ VL RO,STATUS ; Status code in STATUS 
02 FO O7A9 17 : INSV  #STS$K_ERROR,- ; We'll force severity to be... 
00 7AB 17 #STSSV~SEVERITY,- t ...an error, always 
0511'CF 7AC 1730 #STSS$S~SEVERITY, STATUS 
0511°Cf DD 0780 1731 PUSHL STATUS 
1 D 0784 17 ¢ PUSHL 1 
0449 1 786 4 ; BRW ERROR_EXIT 
FBS 1580 CHK_LKSB 
0000'8F 63 81 0789 17 5 - CMPW (R3) ,#SS$_NORMAL ; Status code in LKSB correct? 
01 i ° if 8 puce 10$ ; BR if not 
7C1 1740 108: 
0511°CF 3 6 7C1 13n9 MOVZWL (R3),STATUS : Error status code 
F 7¢ 1746 INSV #STS$K_ERROR,- ; We'll force severity to be... 
7C8 174 #STSSV~SEVERITY,- 3 «ean error, always 
051°C 709 1744 #STSS$S"SEVERITY, STATUS 
S11°CF oD O7CD 1745 PUSHL STATUS 
gt D 0701 1708 PUSHL #1 
042 1 0703 174 BRW ERROR_EXIT 


<c 


SFAO_S CTRSTR = CASTPAR_ERRMSG,- ; AST parameter error message 
0 BUFFER 7 


= 
= 
OUTBUF = FAO_BUF,- 
p = 04(AP) ,- 
= LKID_AODR 
PUSHAL BUFFER_PTR 
BRw FAIL_OOT ; Failure exit 
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4 : re -SBTTL Completion AST Routine 
706 1751 : FUNCTIONAL DESCRIPTION: 
706 1 5 ENQ(W) completion ast routine. This routine set a flag in LOCFLG 
706 1 5 to indicate the completion ast being delivered and check the ast 
gp if : ; parameter. 
706 1 5 : CALLING SEQUEN E: 
£p Mf : Called via AST when system service ENQ(W) complete 
706 17 5 : INPUT PARAMETERS: 
4 1781 : AST parameter = LKID_ADDR 
7D6 1762 : IMPLICIT INPUTS: 
we 68 5 hone 
7D6 1765 : OUTPUT PARAMETERS: 
aoe nee | — 
7D 1768 : IMPLICIT OUTPUTS: 
78 1799 3 Error message if error 
706 1771 : COMPLETION CODES: 
re 1776 3 In STATUS if error 
706 1774 ; SIDE EFFECTS: 
706 1775; NONE 
706 1776 3e° 
Oybe 13 COMP_AST: 
4 1779 * “WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,RI1> = Entry mask 
O1EO'CF 01 88 1781 BISB2 #C_AST_M,LOCFLG 3; Setc lLetion t deliv fl 
OlED'CF 04 AC 01 17 4 CMPL 4(KP),CKID_ADDR > AST por aneter * gt Resin 
01 17 BNEQ 10$ ; Error if not equal 
1784 RET 
1785 10$: 
17 § 
17 
1788 
1789 
1790 
1791 
1792 


So 

nm 
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ern o 
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SON NNN NNN 
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FOSS AOOAUWNS COCO 


0481'CF Bf 
FAE6 1 


<c 
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SEP- UETPSY.SRCJUETLOCK (25) 
-SBTTL Blocking AST Routine 


++ 
FUNCTIONAL pesce PTION: 
This blocking ast routine is called whenever the lock granted 
blocks another lock request. The routine set a common EF for another 
rocess to check the ast delivered. It then dequeue the lock such 
hat another process can get the requested lock. In SYNCSTS flag test, 
The routine waits for a common EF before dequeue the lock. 


CALLING SEQUENCE: 
Called via blocking AST 


INPUT PARAMETERS: 
LKID_ADDR as AST parameter 


IMPLICIT INPUTS: 
NONE 


m 13 
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> > > >> 


MEW OS OD NANE WIN $$ CO ONAN WIN CO OD NOUN EU O OONAUE 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
Error message if error found 


COMPLETION CODES: 
In STATUS if error 


COOOCOCOCOCOCOCCOCOOOCOOCOOCOCOCOOCOOCOCOOO & 


SIDE EFFECTS: 
NONE 


——QDOOooo0o0o 


DOP OO6 NS 
i i a kk hh te 


WWII AIA GAP RIPONIPOPPOPONND 


OFFC 
OD OO8B'CF O08 €E1 


8 
8 
; LOCK_AST: 
-WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> ; Entry mask 
SSETEF_S EFN = #BAST_CEF : Set a CEF BAST_CEF 
C #SYNCST_M,TSTFLG,10$ |: BR if SYNCST flag clear 
sad SWAITFR_S EFN ="#UNLOCK_CEF t Wait for the unlock flag 
58 OlED'CF 00 9 " «MOVE LKID_ADDR,R8 : Address of LKID 
E $DEQ_S LKID7= (RB) : Dequeue the Lock 
FFSE 30 : BSBy CHK_SS : Check RO 


OFFC 

53 04 AC 04 C3 
63 stall, 1 

2 2 


50 00000000°8F 01 
60 


i a dd dd 
0:00 09.00 0D Cd Cd Gd GD Cd Cd 09 C9 CD CD GD CD 0D 0D 09 G9 C9 CD CD OD CD CD CD OD CD 

OD SINNED DD DDD Ds I Ee Be BS EEE PII 
OOD NAME WIN SO OD NANE WWI O OD NOU EWN (OOO NOAOUES WH OUOOn 


SOOCCOSCOOCOOOCOCOSOOSOOOOOCOOCOOOOCOoOoOO 
SIN NA AME B&B EF FWA AAAI AAI INI WII WWI 


N 13 
1 


TLOCKOO = Local Lock Manager UETP Test -SEP-1984 00:26:1 AX/VMS Macro V04- P 45 
ite Deadlock Detection and Resolution Routin gree 3be $b: 98:18 UETPSY.SRCJUETLOCKOO.MAR; 1 _ (26) 


-SBTTL Deadlock Detection and Resolution Routine 


FUNCTIONAL DESCRIPTION: 
This routine is specified os he completion AST routine when detecting 
and reset ying a deadlock situation between processes each of which is 
equally Likely to be the deadlock victim. 


CALLING SEQUENCE: 
Called via AST if deadlock is detected or resolved 


INPUT PARAMETERS: 
O4(AP) is LKID_ADDR 


IMPLICIT INPUTS: 
Associated lock status block 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
Error message if error found 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Program exits on some errors. Common event flags signifying deadlock 
detection or resolution may be set. The victim process dequeues its 
request for a deadlocked resource. Timers to prevent permanent 
deadlock are cancelled. 


DLOCK_AST: 


~WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,R11> ; Entry mask 


SUBL3 #4,04(AP),R3 Figure the LKSB address 

CMPW ass DEADLOCK, (R3) Are we the victim process? 

BNEQ $ BR if not 

SSETEF_S EFN = #DLDET CEF Indicate that a victim has been found 

$DEQ_S~ FLAGS = #LCKSA_DEQALL Dequeue all my locks, allowing... 
-.-other process(es) to succeed 

CMPL #SS$_NORMAL ,RO Did we dequeue all locks? 

BNEQ BR if not 

SCANTIM_S REQIDT = 04(AP) Dlock was found, we don't need timer 

RET We're done with deadlock detection 


<c 


vB 
FF37 


07 wer s 0 


FASD 


50 or 


OS11"cF 50 


0511'CF 
0481'CF 


4 
00741132 A 
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sO. 00000000 C0 CD CD 0D 0D 


, 
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F 
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1883 108: 
; 
ba 
9 


98 


ts ss 2b tn > a ss ts 
o 


wowouowowouovouvono 
-—-OOoOoCoCOoo 
SOWONOUS 


L ; tT E 2 


FLS = #DLRES CEF 
S FLAGS = #LCKSA_DEQALL 


T 
Q 

L £8§$_NORMAL RO 
NTIM_S REQIDT = 04(AP) 


Dewan we DvD wo 


RO, STATUS 
CTRSTR = 2 
= BUFFER PTR, 
QUTBUF = FAO_BUF,- 
P = STATUS 
STATUS 
BUFFER_PTR 
#UETPS_TEXT!STSS$K_ERROR 
ERROR_EXIT 


"SrSEp=198e 00:85:46 EUETBSY.seeduerLockoo.man:1 29° (39) 


; See if we got our lock, broken dlock 


BP tAtE 200 


DEQALL_ERRMSG,- ; 


; Did we get it because... 
i «+-Some other process got deadlock? 


Indicate that deadlock has been resolved 
Dequeve all my locks, allowing... 
---other tests to run 

Did we dequeue all locks? 

BR if not 

Dlock was resolved, we don't need timer 


Save returned status as exit status 
Vrong status returned 


Hy 


O40 


Deadlock Timeout AST Routine 
1 i -SBTTL Deadlock Timeout AST Routine 


P UETPSY.SRC LOCKOO.MAR; 


++ 

FUNCTIONAL DESCRIPTION: 
his routine enecuves only if deadlock was not detected or resolved to 
this process's satisfaction in some reasonable time, a multiple of the 
SYSGEN parameter of the interval for deadlock detection. 


CALLING preven E: 
Called via SSETIMR AST 


INPUT PARAMETERS: 
O4(AP) is LKID_ADDR 


a1 181 
1914 ; 
9 ! } 3 
a0 18 
903 1 § ; 
9 1920 ; 
9 1921 ; 
9 1922 ; 
Bi 38e : 
903 1925 : IMPLICIT INPUTS: 
2 13 $ r NONE 
903 19 8 : OUTPUT PARAMETERS: 
, 13 5 NONE 
903 19 ? > IMPLICIT OUTPUTS: 
> 13 ; : Error message 
0903 1934 : COMPLETION CODES: 
3 1336 ; NONE 
903 19 $ : SIDE EFFECTS: 
903 1938 ; Common event flags specifying deadlock detection and resolution are 
4 1939 ; set. The resource requested by this process is dequeued. 
BS8h agp F 
030 1306 DLOCK_TO_AST: 
OFFC Bye 1207 WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> ; Entry mask 
 & 144 1945 MULL3 #PROC_COUNT+5,- ; Figure how long... 
51 00000000" GF 907 1946 G*LCKSGL_WAITTIME,R1  : ...we waited for deadlock 
90D 1947 SFAO_S CTRSTR = DEADLK_ERRMSG, - ; Tell the world that deadlock... 
0900 1308 OUTLEN = BUFFER_PTR,- i; «detection seemed to fail 
0300 1303 OUTBUF . FAO BUF .- 
481'CF f 9 1951 PUSHAL BUFFER_PTR 
. F9C4 3 a332 1952 BRW FAIL_OOT ; We can't continue - fail with msg 
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vate Term saeton Mailbox AS Rout ine aes 9 §o: 98:18 Ue TP SY SRETOETEOCKOO MAR: 1 ~— 3 ) 
a -SBTTL Termination Mailbox AST Routine 
: FUNCTIONAL DESCRIPTION: 
Receives the termination mailboxes from driven processes. 


CALLING SEQUENCE: 
Called via AST 


INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
MBX_IOSB has the result of the read of a termination mailbox 
EXIT_MSG is the buffer into which the mail is written 
OUTPUT PARAMETERS: 
NONE 


1 
13 
1 
1 
9 1 
9 1 
9 1 
929 19 
929 19 
929 19 
929 1 
9 4 1965 
9 1 
929 19 
929 19 
929 19 
929 19 
88 9 19 
929 19 IMPLICIT OUTPUTS: 
34 4 13 Error message if incorrect or inconsistent info in mailbox 
$9 9 1975 ; COMPLETION CODES: 
0929 19 NONE 
83 9 19 
929 19 SIDE EFFECTS: 
929 19 May cause program termination 
929 19 
929 1981 ;-- 
0929 19 ; 
929 1983 EX_MBX_AST: 
OF FC , : 12 : «WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R1IO,R11> =; Entry mask 
5E O174'CF E9 Q9 19 § BLBC MBX_10S8,50$ ; BR if 10 was not successful 
O17E'CF Bi QO9 19 CMPW EXIT_MSG+ACCSW_MSGTYP, #MSG$ DELPROC ; Is it a termination msg? 
73. «12 «209 19 3 BNEQ ; BR if not 
52 O020°CF ODE , : 1388 108 MOVAL PROCIDS,R2 ; Addr of process ids 
62 O178'CF Di O09 1991 CMPL BOT .1OSE+4, (Ra? ; Process id found? 
13 094 1336 BEQL 208 ; BR if yes 
52 O4A Df 943 199 MOVAL 4(R2),R2 ; Next process id 
6 D 947 1994 TSTL (R2) ; End of process id table? 
F 1¢ 949 1995 BNEQ 10$ ; Try next if more 
OO7F 3 rt 1398 208 BRW 70$ ; Process id not found 
00CO'SF 0182'CF B81 094 1998 CMPW XIT_MSG+ACCSL_FINALSTS,#SS$_NORMAL ; Deleted normally? 
13 955 199 BEQL 0$ 
00 3 95 0 BRW 0$ ; BR if not 
95A 1 30$: 
O1D2°CF D7 O95A ¢ DECL EX_PROC_CNT ; Decrement exist proc count 
0 1¢ 95 BNEQ 408 ; BR if there are more to wait for 
008 3 8 3 408 BRW WAKE _UP ; Go wake up the controller process 
9 $ $Q10_S CHAN = EX_MBXCHAN,- ; Q10 read to mailbox for next process 
9 FUNC = #10$_READVBLK,- 
96 3 ASTADR = EX_MBX_AST,=- 
96 1OSB = MBX_TOSB>- 
96 10 Pi = EXIT_ASG,- 


Ue yupcEOo = Local Lock Manager UETP vere di 1973e0= 1388 00:98:12 AX/VMS Macro V04- Page (38) 


Termination Mailbox AST Rout SEP- UETPSY.SRCJUETLOCKOO.MAR; 1 
963 1 P2 = #ACCSK_TERMLEN 
04 2 4 $08 RET 3; Return 
0511'CF O31: M3 ; ea by MBX_IOSB,STATUS ; Use mailbox status as exit status 
700" F DF 099 PUSHAL NOTRMB_ERRMSG 
1 19) 9) 99D PUSHL 
00741132 8F DD O99F PUSHL #UETPS_TEXT!STSS$K_ERROR 
4 D OQ9A PUSHL 
0258 31 O9A BRW ERROR_EXIT 


60$: 
56 O17E'CF 3¢ poveM cant MSG+ACCS$W_MSGTYP,R6 ; Complain about the kind of msg we got 


STR = MSGTYP_ERRMSG 
PTR 


Pp? 
0481'CF pF PUSHAL BUFFER_PTR ss : Error in termination mailbox 
F920 BRwW FAIL_OOT ; Failure out 


SFAO_S CTRSTR 


70$: 


TERMBX_ERRMSG,=- ; We got a message for the wrong proc 
DUFFER PTR. 


MBX~10SB+4,- 
P EXIT_MSG+ACCSL_F INALSTS 
0481'CF OF PUSHAL BUFFER _PTR 
FFE on BRW 


20 O1EO"CF 01 €0 0 


THN HW HMMM MO OOOO 


BBS _V,LOCFLG,90$ ; BR if the process is deleted by LOCKOO 
SFAO_S CTRST DETPRC_ERRMSG,- ; Error in detached proccess 
OUTLE BUFFER _PTR,= 
OUTBU Fag BUF ,- 
1 (R23,- 
P2 EXIT_MSG+ACCSL_F INALSTS 
—— BUFFER _PTR 


0481'CF F 
F808 FAIL_O0 ; Failure out 


90$: 
RET 


WAKE _UP: 
SWAKE_S ; Wake up the controller 
RET ; Return 
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Ns 


-SBTTL Timer Expiration Routine 


++ 
FUNCTIONAL DESCRIPTION: 
his routine will be called only if the timer which was set to prevent 
program hangs goes off. 


; CALLING SEQUENCE: 


Called via AST at SSETIMR expiration. 


; INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
NONE 


; OUTPUT PARAMETERS: 
; NONE 

; IMPLICIT OUTPUTS: 
; NONE 


; COMPLETION CODES: 


#SS$_TIMEOUT 


; SIDE EFFECTS: 
NONE 


IME _OUT: 
,WORD “M<R2,F3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 


PUSHL #SS$_TIMEOUT ; Push the signal name 
PUSHL #1 ; Push the argument count total 
BRW ERROR_EXIT ; Bail out completely 


G 14 
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. 4 3 in -SBTTL System Service Exception Handler 

AoF 3 ; FUNCTIONAL DESCRIPTION: 

AeF ; This routine is executed if a sqttwere or hardware exception occurs or 
AeF 93; if a LIBSSIGNAL system service is used to output a message. 
AeF 94 ; Information about this method of handling messages and errors can be 
AdF 95 ; found in the VMS COMMON RUN-TIME manual and in the VMS SYSTEM SERVICE 
“ : 38 : manual. 

AF 38 > CALLING SEQUENCE: 

- : 2 : Entered via an exception from the system 

ACF 21 ; : INPUT PARAMETERS: 

4 ! § 3 ERROR_COUNT = previous cumulative error count 

Age i 4 ; AP <---> 2 

AgE 6 ; | SIGNL_ARY PNT | 

A F 3 : ! MECH ARY PNT 

ae Bet Bane PF 

OA r 13g ; { ESTABLISH FP | 

OA F 114 : DEPTH Mechanism Array 
Vane aa nes Sf 

A2F 2118 : i R1 i v 
OA2F 2119 ; | ennnnnenn------ i aa--- ---- 
Vane me 
OA F 2le2: i CONDITION NAME! i 
OASE 5433 : | ececnnnnnnnnnn- i 

AeF 2124; ! N=-3 ADDITIONAL! Signal Array 

; ; 1 5; LONG WORD ARGS : : 

A F 5 ; PC ! 

not 31989 ed : 

ACF 2131 ; IMPLICIT INPUTS: : 

" : : § 5 NONE 

A2F 2134 : OUTPUT PARAMETERS: 

“ 4 ! 5; NONE 

AQF 21 $ ; IMPLICIT OUTPUTS: 

at ia 

AF 140 > COMPLETION CODES: 

Si) = 

AQF 128 > SIDE EFFECTS: 

: : Pe: 3 May branch to ERROR_EXIT 


eae | 
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ve ts System Service Extest on Handler g7SEF | 38 2: g¢: ig UETPSY.S 365 UETLOCKOO.MAR; 1 ee (34) 
A2F 
AdF SSERROR: 
OFFC n f «WORD “M<RZ2,R3,R4,R5,R6,R7,RB,RI,RIO,RII> = Entry mask 
1 oD “ } pes LAST 5 EMBFLE = #0 : aoe a wat hie AP 4 
; Assume s were enable 
50 00000000" » " er #338 WASSET RO ; are fare enabled? 
3 ey were 
6 dD ve 108: CLRL (SP) ; Set ASTs to remain disabled 
on Ag? ; SSETSFM_S ENBFLG = #0 : Disable §S failure mode ee 
3 Assume ailure e was ena 
50 00000000" BF D1 nee CHL #S5S_WASSET.RO i Was $§ failure mode enabled? 
; was 
6—E D4 “ee 208: CLRL (SP) ; Set SS failure mode to remain off 
5604 AC D0 ASD ‘ OVL  CHFSL_SIGARGLST(AP),R6 ; Get the signal array pointe 
1 ED OA6 CMPZV) «- #STSS$V_FAC_NO,- ; Is this a message from LIBSSIGNAL? 
0c OA6 #STS$S_FAC NO 
00000074 BF Once CHESL S16 RARE (ROD, 
ef OAsB 308 ~ a if this is not a UETP exception 
66 A6D -CHFSL_SIG_ARGS(R6) me PC and PSL 
A70 SPUTRSG. 4 ASGVEC™ = CAFSL_SIG t eaktel”, Print the message 
01 A7F P “M<RO> 3 Restore SS failure mode... 
= 1 SSETSFM -5. parle © = RO 3 
01 A8A POPR <RO : Restore AST enable... 


50 00000000' 8F “#SS$_NORMAL ,RO : Supply a standard status for exit 


> ; 
SSETAST § ENBPLG = RO 3 
MOVL ; 
RET ; Return to the program 


Ss 2888 is 
oO 
> 
o 


30$: 
000000C0' 8F nH CMPL #SS$_SSFAIL,- ; RMS fails come through as SS fails 
04 A6 OAA CHF $C_S1G_NAME(R6) 
26 QAA5 BNEQ 40$ ; BR if this can't be an RMS failure 
10 AA? CMPZV) = #STS$V_FAC_NO,- : Is it an RMS failure? 
0c AA9 #STS$S_FAC_NO,- 
08 A6 AAA CHFS$L_S1G_ARG{(R6),- 
01 AAC #RMSS_FACTLITY 
1€ 12 QAAD nee Pee BR if not 
01 BA OAAF <RO> Restore SS failure mode... 
ABI SSE TSEM § ENBFLG = RO “ue 
01 + #~BA R “#*M<RO> Restore AST enable... 


POP 
SSETAST_S ENBFLG = RO 
MOVL “#SS$_NORMAL,RO 


RS OD NIA NEW O OD NA UNE WIN | SO OO NOAUE WIN OOD NAME WN — OC DOONAN EW O OONIO 


> 

Oo 

o 
PIII a a hhh 
BDOOOOO OOOO OO 00.0009 09 09. 09 69 09 09 09 SI NIN NSN NNN DPA A AAA AAD UTI 


50 00000000‘ 8F B° ane ek a standard status for exit 
4 ate 408 ERROR gets to handle these 
OS11°CF O4 A DO OAC MOVL CHFSL_SIG_NAME(R6), STATUS Save the statu 
D4 OAD CL 3 heoune for now Yt s not SS failure 
0511°CF 00000000'8F 01 OAD ot #SS$_SSFAIL,STATUS ; put is it a System Service failure? 
12 OAD eee ft not - no special case message 
AE GETMSG_S MSGID = CHFSL_SIG arciires. - ; Get SS failure code associated text 
AE MSGLEN = BUFFER PTR,- 
AE BUFADR = FAO_B "f- 
AE mks = 
AE TADR = MSG “BLOCK 
0476'CF % AF TSTB ns. BLOCK+1 ; Get FAO ores count for SS failure code 
Ww. % AFC BEQL : Don't use SGETMSG if no $FAO args... 


RIMIRIRIRIMER 


DAGAGAG 


LL et ee ee ee ee ee ee 


a 
Soret oA 


7 


08 46 
538 «OO 
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chubaiindetaabtadal 


"oS ee 13be ba; s: 1g HORT PeS eRe veoceso.mans1 * 


BUFFER. PTR 
Coe eee ARG1 (RG) 
persso” ioe ERITY,- 
RITY. (SP) 


TS$S~ Seve 
ane” 
60$ 

CHFSL _SIG_ARGI (R6) 
#1,R 


#4 ,CHFSL_SIG_ARGS(R6),R7 ; 


R7,CHFSL_SIG_NAME(R6), (sb) 
ne: cuFSL CS SIG_ARGS(R6), StsP) ; Push the current arg count 


---else build up 

o+-8 message describing... 
eeewhy the System Service failed 
Give the message.. 

-+ethe correct severity code 


; Count the number of args we pushed 


; Save SS failure code 


Count the number of args we pushed 


amy longwords to bytes 
ve the current signal array... 
3; «20M the stack 


UI 
S$ 
N 
N 
N 
Ni 
Ni 
Ni 
N 
N 
N 
0 
P 
P 
Pp 
P 
Pp 
P’ 
Pp 
Qi 
R 
R, 
R 
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P U 

RMS Error SEP=19 re (33) S 
nh -SBTTL RMS Error Handler : 
FUNCTIONAL DESCRIPTION: S 
This routine handles error returns from RMS calls. ! 
CALLING SEQUENCE: T 
Called by RMS when a file processing error is found. y 

INPUT PARAMETERS: T 
The FAB or RAB associated with the RMS call. i 
IMPLICIT INPUTS: T 
NONE ! 

OUTPUT PARAMETERS: T 
NONE T 


l 
Ba 
at 2 
age 3927 
BOE : 
B2E 0 
i 
BOE 4 
Hh 5 
E $539 : 
E 8 IMPLICIT OUTPUTS: T 
E 3 Error message : 
E 2241 ; COMPLETION CODES: T 
a ! 
OB2E 44 ; SIDE EFFECTS: Ul 
OB2E 45 Program may exit, depending on severity of the error. UI 
0B2E 46 ul 
Oese 558 U 
0B E 2249 RMS_ERROR: T 
OF FC +3 6 29 «WORD “M<R2,R3,R4,R5,R6,R7,R8B,R9,R10,R11> = Entry mask . 
56 O4A DO 608 2g MOVL 4(AP) ,R6 ; See whether we're dealing with... Ul 
0 91 0B34 5 CMPB #FABSC_BID,FABSB_BID(R6) ;_.-.@ FAB or a RAB Vv 
16 12 7 2 BNEQ 10$ ; BR if it's a RAB V. 
57 9896" Cr D 9 5 MOVAL FILE,R7 ; FAB-specific code: text string... Vv 
58 6 OD E 2$ VL R6,RS ; «address of FAB... V 
CA6 DD 0B41 225 PUSHL FABSL_STV(R6) : ..eSTV field for error... v 
8 A6 DD 0B44 28 PUSHL FABSL_STS(R6) ; «STS field for error... Ww 
0511'CF 8 HY DO 0847 5 MOVL FABSL_STS(R6) ,STATUS 3 ..-and save the error code W 
11 sore $9 108 BRB COM ; FAB and RAB share other code 
57 OBAG'CF §=DE «OB4F 6¢ "  MOVAL ~—s RECORD, R7 ; RAB-specific code: text string... 
58 3C A6 OD B54 6 VL RA L_FAB(R6) RB ; ...address of associated FAB... 
- DD B28 $ PUSHL RABSL_STV(R6) 3; «STV field for error... 
A DD 0858 5 PUSHL RABSL_STS(R6) ; «STS field for error... P 
0511'CF Aé6é D0 $43 $6 ‘ VL RABSL_STS(R6) , STATUS 3 «..and save the error code 
SA 34 AB 9A B64 3 ONT WOVZBL FABSB_FNS(RB) ,R10 : Get the file name size 5 
B6 8 $FAO_S CTRSTR = RMS ERR STRING,~ ; Common code, prepare error message... R 
B6 OUTLEN = BUFFER 7 R 
Bb 7 QUTBUF = FAO_BUF ,- $ 
B6 % Fp = R7,= T 
Bb 7 Pe = R16,- 
74 P = FABSL_FNA(R8) 
vego of 4 : 6 sity BUFFER_PTR 3 «..and arguments for ERROR_EXIT... 
00741130 8F DD O08 § PUSHL  #UETPS$_TEXT BD rox 
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Vour000 ant*Errer fonder” ees "BrSEb=138e 82:98:18 LOE TPSY. SRESecocko0.man:1 2% (93) 
ee ee 
59 ae 4 ‘ STATUS TRO : i «+-get the severity code. 
6€ 59 88 BISB2 RO, (SPS : iildnd add it into the signal name 
05 D O98 Be PUSHL #5 : Current arg count 
0065 1 OB9A BRW ERROR_EXIT 
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TLOCKOO = Local Lock Manager UETP Test SEP=1 0:26:1 AX/VMS Macro V04-0 P 
ve tt CTRL/C Handler ° "gr =-SEP=-19 1382 90:48:12 UETPSY.SRCJUETLOCKOO.MAR; 1 _ (3%) 
90 5 sa -SBTTL CTRL/C Handler 
$0 5 ; FUNCTIONAL DESCRIPTION: 
+3 8 i ; This routine handles CTRL/C AST's 
9D 9; : CALLING SEQUENCE: 
43 4 i Called via AST 
9D 38 INPUT PARAMETERS: 
0 3¢ g NONE 
9D % : IMPLICIT INPUTS: 
8 3 3 NONE 
2690 5 : OUTPUT, PARAMETERS: 
9D 13 
9D ¢ 3; IMPLICIT OUTPUTS: 
ad z 3 NONE 
0B9D 2305 ; COMPLETION CODES: 
944 8 3 NONE 
90 2308 ; SIDE EFFECTS: 
9D 09 : NONE 
oBop 531) 
90 2312 ° 
dsp i CCASTHAND: 
OFFC poor 1 ~ WORD “M<CR2,R3,R4,R5,R6,R7,R8,R9I,RIO,R11> =; Entry mask 
28 O1DE'CF 00 £0 OB9F 1 BBS #ORIVEN_V,GLBFLG,30$ ; Skip this if we are a driven 
5¢ GAS"CE DE OBAS 19 MOVAL PROCS,R i dae of wees ae 
5 woee" st of ay Hh are. pROCIDS, oR3 ; — of detached process id 
e ngex 
0881 0 10$: 
6345 05 0881 1 (R3)CR5) : Is the process exited ? 
13 1 0BB4 ; BEQL ; BR if vee 
roe SFORCEX_S PIDADR = (R3)CR5],- ; Delete the process 
6 4 = : Status is zero 
O1EO'CF O02 88 pate 2 50s: BISB2 #DLPRC_M,LOCFLG ; Set the delete process flag 
E455 02 F2 dae i AOBLSS #PROC_COUNT,R5,10$ ; Next if more 
cD 30$: 
O2BB'CF OF CD 0 PUSHAL CNTRLCMSG : Set message pointer 
DD D1 1 PUSHL Set arg count 
00741130 8F DD 0BD3 : PUSHL ETPS_TEXT!STSSK LWARNING Set Signal n 
OD d9 PUSHL @# > tedlcae an Bo SOF termination 
0008 ' CF DF 0B 4 PUSHAL TEST_NAME_D bose 
0D DOF 5 PUSHL a 
007410E0 8F DD OBE1 $ PUSHL ‘ ETP$_ABENDD! STS$K WARNING”; 2 aan 
00000000 ' GF i, © E7 CALLS IGNAL Output the message... 
D EE g MOVL acétsbx SUCCESS!S $ _contRoLe=— ; ...and exit status 
EF K SOCCES +STS$K-WARNING>+= 
0511°CF 10000000 * 8F EF rt STSek- INHIB_MSG,STATUS 
F7 4 SEXIT_S STATUS. ; Terminate program cleanly 
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l 
Error Ex -SEP-19 UETPSY.SRCJUETLOCK 
: - -SBTTL Error Exit 
C 45 FUNCTIONAL DESCRIPTION: 
: +8 : This routine prints an error message and exits. 
¢C 48 i > CALLING SEQUENCE: 
C 4 ; PUSHx error specific information on the stack 
C 50 ; PUSHL current erguaent count 
: 51 : BRW ERROR_EXIT 
¢ § INPUT PARAMETERS: 
: 2: 3 Arguments to LIBSSIGNAL, as above 
C 36 : IMPLICIT INPUTS: 
: ef s NONE 
C 59 ; OUTPUT PARAMETERS: 
8 o9 3 3 Message to SYSSOUTPUT (log file) and SYSSERROR 
8 6¢ i : IMPLICIT OUTPUTS: 
ace a7 i 3 Program exit 
co 65 ; COMPLETION CODES: 
8 6 : NONE 
$c 68 : SIDE EFFECTS: 
0cO0 92 3 NONE 
0cO 0 : 
ie 
CO 58 ERROR_EXIT: 
1C OIDE'CF O02 €0 OQCO 74 BB #BEGIN 7 GLBFLG,5$ ; BR if already given beginning sentinel 
O22c°cF DF OCO 75 PUSHAL BEGUN ADD ; Not yet, so do it before giving error 
foto ebb BIO S899 PUSHY ao Rane c 
00748009 oF 0D C1 oe PUSHL aye ree SATSMS!STSS$K_ SUCCESS 
00000000 ' GF 4 F C1 7 CALLS G*LTBS$SIGNAL ; Squirt out the message... 
OIDE'CF O04 A 3 9 5 BISw2 reecin _MSGM,GLBFLG 3 ...and mark it as done 
40 Q}DE "ce CF 00 €0 0OC24 5 : BBS #DRIVEN_V,GLBFLG,30$ 3 ship this if we are a driven proc 
mF AS'CF DE OC2A MOVAL PROCS,R 3; Addr of process indicator 
$620 "CF DE OC2F 4 MOVAL PROCIOS,R3 3; Addr of detached process id 
55 D4 : 4 5 108 CLRL R5 3; Index 
6343 9 : é 5 : TSTL (R3)CR5) 2 ds the process exited ? 
3 es 
C 83 SFORCEX_S PIDADR = (R3)CRS],- ; Delete the process 
C 0 = ; Status is zero 
O1EO"CF 02 88 Ft: 3 208 BISB2 #DLPRC_M,LOCFLG ; Set the delete process flag 
E455 02 F2 OC4 38 . AOBLSS #PROC COUNT R5,10$ ; Next if more 
c5 94 SSCHDWK_S DAYTIM = TEN. SECONDS ; Cheap wey to allow process rundown... 
¢ 3 <4 SHIBER_S 3 ...for the ones we just zapped 
C6A 3 30$: 
0511°CF 05 QC6A 38 TSTL STATUS ; Was any exit status supplied? 
09 12 OC6E 9 BNEQ 40$ ; BR if one was 
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00741 8F D0 OC 4 MOVL #UETPS_ABENDD!STSSK_ERROR,- ; Supply a generic one otherwise 
geht. BF ef r 9 408 STATUS” msi A 
OSOD'CF 04 C1 ‘fF 4 : ADOL3 Sgr). o#4,ARG_COUNT ; Get total # args, pop partial count 
DD OC7F 2404 PUSHL ; Push the time parameter 
0008' DF OC 405 PUSHAL t ST_NAME_D ; Push test name... 
od OC 4 $ PUSHL ++-8fg count... 
741082 DD OC 4 PUSHL fetes ABENDD! STS$K_ERRO nok 3 tad signal name 
00000000' or 050D' if FB CBD 24 8 CALLS OONT,G*LIB$SIGRAL ; brint the message 
0511°CF 10000000 8F C C96 24 BISL agi M_ INASBC Lmse STATUS | Don't print messages twice 
OC9F 2410 SEXIT _S STATUS” : Exit in error 


mn 
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OCAA ¢] «SBTTL Exit Handler 
NCAA p++ 
; RIPTION: 
EAA i : facty Bg my file of detached processes to SYSSOUTPUT and exit. 
? . 
; QUENCE : 
EAA rt : vimensay Bae oe automatically by SEXIT system service. 
419 ; 
EAA 420 ; INPUT PARAMETERS: 
Bk fish: NO 
r) . 
: T 
EAA d ; ote | ® ia cantatas the exit status 
OCAA r $ Log files of cooperating detached processes 
Tae? 5 > OUTPUT PARAMETERS: 
7 i 
‘ . 
: T OUTPUTS: 
EAA é ? ; stacey Vt wai. of cooperating processes written to SYSSOUTPUT 
NtAA 34 4 : COMPLETION CODES: 
Pa fey on 
V ; 
EAA d $ : = "lon tiles of cooperating detached processes are deleted 
ie 
‘ 
T_HANDLER: 
OFFC ay i ex «WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,RIO,K11> ; Entry mask 
+ 
TSFM_S ENBFLG = # ; We can't trap System Service errors 
85 sti SeEtAst= “S ENBFLG = # ; ASTs could screw us up now : 
dy given beginning sentine 
aad 700 a hc 7 
0070" CF DF OCCc8 ret ob fogs j5s'- Rane Cc 
2 op occc 
Sotere” ‘ PB bs re CALLS Fe Gre TBSSi GNA BSS. rt testes out the message... 
pense tes ope i is. BISW *BECIN _MSGM,GLBFLG 3 «+-and mark it as done 
Pe Se : 3 log files if we're fr jven proc 
. 4 BBS #ORIVEN_V GLBELS. 10$ ; Ignore log 
cheats 0098 58 ce 63 BSBW TYPE_LOG_ wait ; Dump driven process log file(s) 
cee Scag (08: ; e get no status. 
Oortnge 3 Oces 38 BNEG EXIT MESSAGE pete we were SFORCEXed. BR if OK 
ms EA 4 StAO S$ CTRSTR = FORCEX_MSG,- ; Type a message t ke tell of our... 
CEA 24 pute = Durr ER EP IRe= 3 «+SFORCEX plight 
Ss = 
CEA d 4 iT = #TEST_NAME_D 
0481'CF OF OD ; r 5 ty BUFFER PTR 
741132 H DD D 9 246 ; PUSHL aye tes rer Asi sek.. ERROR 
00000000 ' GF 3 FB ODOF 2468 CALLS #5,G*LTB 


Page 99 We 
Macro ¢ (35) 
TCR GERE1g AETV 9550906280 mun 
= Local Lock Manager UETP Tes -SEP OR!= ; Supply a default exit status 
wlio mee TT oe peti 
# 16 24 STSSM_INHIB_MSG, tutty 
ntiaag | eattnenched Ses a : AGE : ; Assume we jones (ee u 
ie GE Re, «SRI 
‘CF =o 4 BL FAIL_AODR, (SP H 
"CF «=6EB OOD 3 MOVAL 
6c” He PE Ob Hf 108: PUSHAL TEST LNAME_C | Sel the ond aessoge code 
47 i wy RYAL EY. d. 
10° fF oF D D 47 PUSHL #UETPS_ SATSeS ERITY,= : Give the 
dss 0 es et SV BATSSe SEVERITY. Cg 
0 O31 es ‘ D PUSHL #4 R1 ; Print the ending message 
E DO OD42 24 SPUTMSG_S 
< Oo? eee RET 
04 0D54 
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TLOCKOO = Local Lock Manager UETP Test 16-SEP-1984 00:26:1 AX/VMS Macro V04- Pa 1 
vided Exit Handler ° mii ets 30:98:12 UETPSY.SRCJUETLOCKOO.MAR; 1 a (%) 
D 487 ; 
D 4 8 ; This routine does ‘‘typical’’ UETP Log file output, ji.e., it reads a file 
D 489 ; seorch ing for a keyword used as a beginning sentinel. When the sentine 
D 490 ; is found, all Lines of the file up to, but not ine tuding. a line containing 
D 491 ; and ending sentinel are copied to SYS$OUTPUT. An end of file counts as an 
D 492 ; ending sentinel. The copying egersthe is done for all the driven 
4 ter ; processes started up by this driver. 
D 495 TYPE_LOG_FILES: 
56 D4 OD5 38 CLRL R6 i Initialize pointer to table of... 
b8 4 108 j «Qualifiers for driven proc names 
secret DS OD : 139 TSTL PROCIDSCR6) ; Was this process ever started? 
0 1 Oat 500 BNEQ 15$ ; BR if it was 
oocc 3 4 : 1 158 BRW 60$ ; It wasn't. There can be no log to copy 
0034"CF O2A9"CF46 90 0D61 25 § MOVB PROCSCR6],LOG_FILE_QUAL ; Set up name for this log file 
D69 2504 SOPEN FAB = LOG_FAB ; Open the log file 
01 gh 28 D 3 232 BSBW FAB_ERROR 
1150 € D7 5 § BLBC RO,17$ 3; Don't try to read if we have error 
D7A 25 SCONNECT RAB = LOG_RAB ; Connect to log file 
9108 8 5 25 . BSBW RAB_ERROR 
0350 € oe 292 a BLBS RO, 208 ; BR if all OK 
0089 831 one 21) 208 BRW 50$ ; Don't try to read if we have error 
D8 218 $GET RAB _= LOG_RAB ; Read a record looking for sentinel 
1 50 9 0D9 514 BLBC RO, 30$ : if error 
54 022C'CF D9C 2515 MOVZBW BEGUN _ADDR,R4 : Form MATCHC Length argument 
O22D'CF 54 3 DA! 318 MATCHC R4,BEGUN ADDR+1,- ; Did we find a beginning sentinel? 
O525'CF 0084 &F DA6 251 #TEXT_BUFFER,RMS_BUFFER 
EO 12 QDAC 218 BNEQ ; Loop for next record if not 
DA 3] $GET RAB = LOG RAB 3; Anticipate the next record 
54 0232'CF % DB 0 MOVZBW END_ADDR,R4 ; Form MATCHC Length argument 
0233" CF 54 39 ODBE 2521 MATCHC R4,END_ADDR+1,- : Did we find an ending sentinel? 
0525'CF 0084 BF DC3 25 : #TEXT_BUFFER,RMS_BUFFER 
4 13° ODC 5 BEQL 50$ ; BR if we did - nothing to copy 
6 10 $34 2 ¢ 308 BSBB TYPE_INTRO ; Introduce anything we might copy 
pc 5 § $GET RAB = LOG_RAB ; Read a record to copy 
$3 50 9 ODD 5 BLBC RO,4 3 f error 
54 0232°CF DD 3 : MOVZBW END_ADDR,R4 : Form MATCHC Length argument 
O233'CF 54 DE MATCHC R4,END_ADDR+1,- : Did we find an ending sentinel? 
O525'CF 0084 BF DE #TEXT_BUFFER,RMS_BUFFER 
A 13 OQDEB BEQL ; BR if we did 
were ett Al . ; ADDW3 = #INDENT LOG_RAB+RABSW_RSZ,~ ; Set the size of our message 
DF 4 peyrnses MSGVEC = LOG_MSGVEC ; ALL driven proc msgs go to SYSSOUTPUT 
cs) so : : 5 408 BRB 0$ 3; Do the next record 
00000000 ' 8F 0 oO E $ CMPL 80 #RMS$_EOF ; End of file ? 
13 OEOF 8 Bea. «=s«50$ : BR if it is 
007F 3 E11 25 BSBW RAB paren : Give an error otherwise... 
16 50 +f 9 $08 BLBC RO,60$ 3 «and skip the rest of this one 
E17 $3 $SCLOSE FAB = LOG_FAB : Close the log file, igror tog errors 
E22 254 SERASE FAB = LOG_FAB ; Delete the log file, ignoring errors 
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#PROC_COUNT=1,41,R6,10$ ; Loop through all driven processes 
; Return to mainline code 
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Manager UETP Test 


TYPE_INTRO: 
MOVL 


ove 
$F IND 
MOVB 
MOVCS 
RSB 
RAB_ERROR: 
BLBC 
RSB 
PUSHL 


PUSHL 
BRB 


10$: 


FAB_ERROR: 
BLBC 
RSB 
PUSHL 


PUS 
;BRB 


10$: 


=x 
= 


ALL_ERROR: 
PUSHL 
SFAO_S 


POPL 
PUSHAL 
PUSHL 
PUSHL 
CALLS 
RSB 
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END 
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UETPSY. 


t . o 
; «ee@ message... 
«+.to introduce the log file... 


; oeeif there 


16-SEP-1984 00:26:1 
ott 4 90:48:18 
#TEXT BUFFER .LOG_MSGPTR ; Set up.. 
PROCSTRO)R ; 
CTRSTR = COPY_LOG_MSG,=- : 
OUTLEN = LOG_ASGPTR,- 
OUTBUF = LOG-MSGPTR.- 
P = #06 FILE bESC, 
P = #i,- 
P = RO 
S$ MSGVEC = LOG_MSGVEC ; 
#RABSC_RFA 3; Now s 


LOG_RAB+RAB$B_RAC 

RAB™= LOG_RAB;- 
RR = RMS ERROR 
ABSC_SEG,- 

L9G RAB+RABSB_RAC 

#0,70,#*A/ /,= 

#INDENT,RMS_BUFFE 


RO,10$ 


LOG_RAB+RABSL_STV 
LOG-RAB+RABSL_STS 
ALL ERROR 


RO,10$ 


LOG_FAB+FABSL_S 
LOG"FAB+FABSL—S 


TV 
“ TS 
ALL_ERROR 


RMS _ERRM 
BUFFER_P 


AO_BUF, 
#LOG_FIL 
RO 

BUFFER_PTR 


a 
eyeres TEXT!STS$K 
#5,G*LIBSSIGNAL 


RO 
CTRSTR = 
OUTLEN 
bated 
P 


VETLOCKOO 


SG,- 
TR,= 


E_DESC 


_ERROR 


et 


Up... 


is stuff to copy 


++-SO that we can... 


i «--Peread that Last record 


Set subp 


indentation to mark... 
rocess log from our messages 


If there is no error... 
«+ewe take no action 


Get the specific error 


Rest of code is same for FAB & RAB 


If there is no error... 
~+ewe take no action 


Get the specific error 


Rest of code is same for FAB & RAB 


Register must be preserved 


error message 


Register must be preserved 


Arg count 
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code 


- note that RO is preserved 


Return with RO intact 
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VETLOCKOO ee ee ne ee vee BrSEp= 1984 Oes8si46 LUETPSY.SReIUETLOCKOO.MAR; 1 (3) 
Symbol table seeonc A2F R 05 
WODLOCK ERRMSG at R a3 S$ “SYNCH EFN 5 065 a 
NONE LENGTH . ys STSSKcINFO. : 
NOSYRCH ERRMSG S44 : 03 STSSK=SuCcESs : Q 
NOTRMB ERRASG i ST SSRn INHIB ASG . 
NOUAIT-A = 0000004 STSSS-FAC_NO : 
NOWAIT=V . 3 5 STSSS_SEVERITY = 900000 
TL 10 aeereere 8 6X $V7FAC_NO = 00 1 
PAR ERRASG poetea & ST SSV"SEVERITY = 80009000 
PRAODE. CODE £900 ae SUBPROC. STRING ae 
PRADDE COD OR ratte 0 0209 R Q 
PROCS. = 0000 29 Stl Pas VIS SCSNODE = 00001067 
PROC. COUNT 4 0900003 R 0 SYNCR ERRASG o tora !|OCUe 
PROC QUALIFIER G000AG8 a 03 SYNCST_A = 90000003 
TATUS 9000515 R = 0 SYNC oF = 00000001 
QUAD _STATU = 0000001E SYNC eeneeeee GX 05 
RABSE_RAC = 44 001 SYSSASCEFC eeaneene GX 05 
RABSC_BID ma 1454-494 SYSSASSIGN eeereese 6X 05 
RABSC_BLN = $0000002 SYSSCANTIM eexeeere GX 05 
RABSC_RFA s 000000 SYSSCLOSE aeaeneane § 6X 05 
aeer Ete = 09000018 SYSSCONNECT saccenne ex 2 
al 00 eeeeeee 
SL-FAB = §0000008 SYSSCRELNM eeeeeese GX 05 
$L_ROP SYSSCREMBX 05 
RABSL STS = 89900006 SYSSCREPRC ceeeeres GX 8 
RABSL_STV ‘ 09000096 SYSSDCLEXH weaneenee GX 05 
RABSW_RSZ OO00ES3 R 05 SYSSDEQ eeneeeee GX 05 
AB_ER OOOBAL R b SYSSE y eeeeeeee GX 05 
RESR og00sep R03 SrSERaSe careees G88 
® 
RESR_DESC = beonten ” SYSSEXIT eoeenteii Ti 
ESR_LEN eeeeeree X= 05 SYSSFAO aeeeeree GX 05 
RMSS_EOF = 000 1 SYSSF IND aeeeeeee GX 05 
eee Seg uta ces 
® 
roe Fanes bates BS SRR same 8 & 
ef 
RMSERR_ STRING rs ty . 08 SYSSGETJPI socmeant a 05 
SAVED_VAL g2 R 0 SYSSGETMSG aeeeeeee GX 5 
SED REG 9000389 ROS SySSHiBER. poacenee a3 
SHRS_ABEND = 88001 O68 SYSSINPUT wore. Ue 
SHRS_ENDEDD “ 1988 je eee eeeeener Gx ; 
geen 
SNDMBX_ ERRMSG = hopoeeee F $¥S$10u teenenes GX 05 
S SG EF geereree x 5 SYSSREADEF geeeeene § GX 5 
SS$_CORTROLC teeneeee X05 SYS$SCHOWK teereeee GX 05 
SS$_NORMAL eeeeeeee X05 SYSSSETEF eeneeeee GX 
SS$_NOTQUEUED eereeeee = § 5 SYSSSETIMR eeereere 6X 5 
see -set Alt eeeeeeee aveseetces peseeeee = : 
TIMEOUT eerenreee SYSSTRNLOG eeenee 
aM 3s eeeeeree 
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Allocation 


TESTLOCK 


ABS 


PSECT nome 


K 15 
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VAX=11 Macro Run Statistics ° Meee ebs basSeius FORT Mee cee ate tec ho.mans1 2% <$9, 
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! Performance indicators ! 


pores rm ees nee semen esas ones } 


Phase Page faults CPU Time Elapsed Time 
pate tos tent ton , m4 09:00-4 :00: $2 
omma rocessin ¥ :00:02. 
ag . 83 ‘ :00:59.11 
pyase table sort 4 :00:05.0 
46 3 :00:14.4 
Soa table output “3 :00: 3-9 
Psect synopsis output 700:00. :00:00.11 
Cross-reference output 3:88! ‘ 0:00: 9-00 
Assembler run totals 149 :00:41.74 0:01:22. 


The be sere ing set Limit was 2000 pages. 

160602 bytes (314 pages) of virtual memory were used to buffer the intermediate gots: 

There were 90 pages of symbol table space allocated to hold 1649 non-local and 83 local symbols. 
601 source Lines were read in Pass 1, produc ing object records in Pass 2. 

pages of virtual memory were used to define 79 macros. 


¢-eer eee eeren ene eee mee en nme + 
! ; Macro Library statistics : 


Macro Library name Macros defined 


=$35Ssbuase E3YS 0843 ETP. Ae: } 4 
255$DUA28: SYS IBISTARLET. MLB; 2 ie 
ToThis (all Libraries) 7 


2025 GETS were required to define 73 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:UVETLOCK00/0BJ=OBJ$:UVETLOCKOO MSRC$:UETLOCKOO/UPDATE=(ENH$:UETLOCKOO) +EXECML$/LIB+SHRLIB$:UETP/LIB 
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